diff options
author | Bálint Aradi <baradi09@gmail.com> | 2017-05-19 17:35:13 +0200 |
---|---|---|
committer | Jussi Pakkanen <jpakkane@gmail.com> | 2017-05-26 23:21:27 +0300 |
commit | 809a5938ff58c17e6fb6448b9c50326d1a46580c (patch) | |
tree | 2924782a552858f15424624c2b1047dc2608ef3d /test cases | |
parent | c389f7cdc731f3ded5e227240c43e642d7f48d8a (diff) | |
download | meson-809a5938ff58c17e6fb6448b9c50326d1a46580c.zip meson-809a5938ff58c17e6fb6448b9c50326d1a46580c.tar.gz meson-809a5938ff58c17e6fb6448b9c50326d1a46580c.tar.bz2 |
Fix case sensitivity in Fortran module names
Diffstat (limited to 'test cases')
-rw-r--r-- | test cases/fortran/8 module names/meson.build | 6 | ||||
-rw-r--r-- | test cases/fortran/8 module names/mod1.f90 | 6 | ||||
-rw-r--r-- | test cases/fortran/8 module names/mod2.f90 | 6 | ||||
-rw-r--r-- | test cases/fortran/8 module names/test.f90 | 7 |
4 files changed, 25 insertions, 0 deletions
diff --git a/test cases/fortran/8 module names/meson.build b/test cases/fortran/8 module names/meson.build new file mode 100644 index 0000000..632c597 --- /dev/null +++ b/test cases/fortran/8 module names/meson.build @@ -0,0 +1,6 @@ +project('mod_name_case', 'fortran') + +sources = ['test.f90', 'mod1.f90', 'mod2.f90'] + +exe = executable('mod_name_case', sources) +test('mod_name_case', exe) diff --git a/test cases/fortran/8 module names/mod1.f90 b/test cases/fortran/8 module names/mod1.f90 new file mode 100644 index 0000000..69cc900 --- /dev/null +++ b/test cases/fortran/8 module names/mod1.f90 @@ -0,0 +1,6 @@ +module MyMod1 + implicit none + + integer, parameter :: myModVal1 = 1 + +end module MyMod1 diff --git a/test cases/fortran/8 module names/mod2.f90 b/test cases/fortran/8 module names/mod2.f90 new file mode 100644 index 0000000..971df44 --- /dev/null +++ b/test cases/fortran/8 module names/mod2.f90 @@ -0,0 +1,6 @@ +module mymod2 + implicit none + + integer, parameter :: myModVal2 = 2 + +end module mymod2 diff --git a/test cases/fortran/8 module names/test.f90 b/test cases/fortran/8 module names/test.f90 new file mode 100644 index 0000000..ff5a545 --- /dev/null +++ b/test cases/fortran/8 module names/test.f90 @@ -0,0 +1,7 @@ +program test + use mymod1 + use MyMod2 + + integer, parameter :: testVar = myModVal1 + myModVal2 + +end program test |