From 7c31e7cccf272e9efd7a55c04b6417e1db757d73 Mon Sep 17 00:00:00 2001 From: David E Bernholdt Date: Fri, 27 May 1994 23:34:42 +0000 Subject: [PATCH] Getting my test case during the Memorial Day sale! --- src/develop/GNUmakefile | 2 +- src/develop/debtest.F | 10 ++++++++++ 2 files changed, 11 insertions(+), 1 deletion(-) create mode 100644 src/develop/debtest.F diff --git a/src/develop/GNUmakefile b/src/develop/GNUmakefile index d00b00fe3c..3c9b4f990c 100644 --- a/src/develop/GNUmakefile +++ b/src/develop/GNUmakefile @@ -1,4 +1,4 @@ - OBJ = rjhtest.o raktest.o + OBJ = rjhtest.o raktest.o debtest.o LIBRARY = libtest.a include ../config/makefile.h diff --git a/src/develop/debtest.F b/src/develop/debtest.F new file mode 100644 index 0000000000..7c59f3bd60 --- /dev/null +++ b/src/develop/debtest.F @@ -0,0 +1,10 @@ + Subroutine DEBTest(RTDB) + Implicit NONE + Integer RTDB + Integer LUOut + Parameter (LuOut = 6) +C#include "stdio.fh" +C#include "stdio_init.fh" + Write (LuOut, *) 'Just a placeholder!' + Return + End