From f7465c0887e52ebedb024745d504bf95f113ae0d Mon Sep 17 00:00:00 2001
From: "Michael Hirsch, Ph.D" <scivision@users.noreply.github.com>
Date: Wed, 19 Jun 2019 21:31:56 -0400
Subject: add fortran module inline comment test

---
 test cases/fortran/2 modules/comment_mod.f90 |  6 ++++++
 test cases/fortran/2 modules/meson.build     |  2 +-
 test cases/fortran/2 modules/mymod.f90       |  6 ++++++
 test cases/fortran/2 modules/prog.f90        | 12 ++++++++----
 test cases/fortran/2 modules/stuff.f90       |  5 -----
 5 files changed, 21 insertions(+), 10 deletions(-)
 create mode 100644 test cases/fortran/2 modules/comment_mod.f90
 create mode 100644 test cases/fortran/2 modules/mymod.f90
 delete mode 100644 test cases/fortran/2 modules/stuff.f90

diff --git a/test cases/fortran/2 modules/comment_mod.f90 b/test cases/fortran/2 modules/comment_mod.f90
new file mode 100644
index 0000000..d7808ac
--- /dev/null
+++ b/test cases/fortran/2 modules/comment_mod.f90	
@@ -0,0 +1,6 @@
+module line! inline comment
+implicit none
+
+real :: length
+
+end module line
\ No newline at end of file
diff --git a/test cases/fortran/2 modules/meson.build b/test cases/fortran/2 modules/meson.build
index 030f255..7893551 100644
--- a/test cases/fortran/2 modules/meson.build	
+++ b/test cases/fortran/2 modules/meson.build	
@@ -1,4 +1,4 @@
 project('modules', 'fortran')
 
-e = executable('modprog', 'stuff.f90', 'prog.f90')
+e = executable('modprog', 'mymod.f90', 'prog.f90', 'comment_mod.f90')
 test('moduletest', e)
diff --git a/test cases/fortran/2 modules/mymod.f90 b/test cases/fortran/2 modules/mymod.f90
new file mode 100644
index 0000000..f8e7929
--- /dev/null
+++ b/test cases/fortran/2 modules/mymod.f90	
@@ -0,0 +1,6 @@
+module circle
+implicit none
+
+real, parameter :: pi = 4.*atan(1.)
+real :: radius
+end module circle
diff --git a/test cases/fortran/2 modules/prog.f90 b/test cases/fortran/2 modules/prog.f90
index c3998cc..93b310f 100644
--- a/test cases/fortran/2 modules/prog.f90	
+++ b/test cases/fortran/2 modules/prog.f90	
@@ -1,7 +1,11 @@
-PROGRAM prog
+use circle, only: pi
+use line, only: length
+implicit none
 
-use Circle
-IMPLICIT NONE
+print *,'pi=',pi
 
-END PROGRAM prog
+length = pi
+print *, length
+
+end program
 
diff --git a/test cases/fortran/2 modules/stuff.f90 b/test cases/fortran/2 modules/stuff.f90
deleted file mode 100644
index 4a6399b..0000000
--- a/test cases/fortran/2 modules/stuff.f90	
+++ /dev/null
@@ -1,5 +0,0 @@
-MODULE Circle
-   REAL, PARAMETER :: Pi = 3.1415927
-   REAL :: radius
-END MODULE Circle
-
-- 
cgit v1.1