add fortran module inline comment test

5 files changed, 21 insertions, 10 deletions

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
-