fortran 2003 use, non_instrinsic

incl

inver

3 files changed, 35 insertions, 18 deletions

diff --git a/test cases/fortran/3 module procedure/meson.build b/test cases/fortran/3 module procedure/meson.build
index f05a70c..a590015 100644
--- a/test cases/fortran/3 module procedure/meson.build
+++ b/test cases/fortran/3 module procedure/meson.build
@@ -1,4 +1,5 @@
-project('use in same file', 'fortran')
+project('Fortran 2003 use statement, in same file', 'fortran',
+  meson_version: '>= 0.50.0')
 
-e = executable('prog', 'prog.f90')
-test('simple', e)
+e = executable('use_syntax', 'use_syntax.f90')
+test('Fortran 2003 use syntax', e)
diff --git a/test cases/fortran/3 module procedure/prog.f90 b/test cases/fortran/3 module procedure/prog.f90
deleted file mode 100644
index 4899d8b..0000000
--- a/test cases/fortran/3 module procedure/prog.f90
+++ /dev/null
@@ -1,15 +0,0 @@
-MODULE Circle
-   REAL, PARAMETER :: Pi = 3.1415927
-   REAL :: radius
-   INTERFACE DEFAULT
-      MODULE PROCEDURE func
-   END INTERFACE
-   CONTAINS
-      FUNCTION func()
-         func = 0
-      END FUNCTION
-END MODULE Circle
-
-PROGRAM PROG
-   print *, "Module procedure is working."
-END PROGRAM PROG
diff --git a/test cases/fortran/3 module procedure/use_syntax.f90 b/test cases/fortran/3 module procedure/use_syntax.f90
new file mode 100644
index 0000000..2f3a9e6
--- /dev/null
+++ b/test cases/fortran/3 module procedure/use_syntax.f90
@@ -0,0 +1,31 @@
+module circle
+implicit none
+
+integer :: x
+real :: radius
+
+interface default
+  module procedure timestwo
+end interface
+
+contains
+
+elemental integer function timestwo(x) result(y)
+  integer, intent(in) :: x
+   y = 2*x
+end function
+end module circle
+
+program prog
+
+use, non_intrinsic :: circle, only: timestwo, x
+
+implicit none
+
+x = 3
+
+if (timestwo(x) /= 6) error stop 'fortran module procedure problem'
+
+print *,'OK: Fortran module procedure'
+
+end program prog