diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2007-10-31 16:10:12 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-10-31 16:10:12 +0100 |
| commit | 1e4c40729a2606b0b3cd7993d9f6faac7ca1506b (patch) | |
| tree | ef12b1b4fe237e820892760c288137f83de1be2b /gcc/testsuite/gfortran.dg/module_read_1.f90 | |
| parent | 5b9a40df4e3e9c4253239bbc32578eda155577ea (diff) | |
| download | gcc-1e4c40729a2606b0b3cd7993d9f6faac7ca1506b.tar.gz | |
[multiple changes]
2007-10-31 Tobias Burnus <burnus@net-b.de>
PR fortran/33941
* modules.c (intrinsics): Use only alphabetic names for
intrinsic operators.
2007-10-31 Dominique d'Humieres <dominiq@lps.ens.fr>
Tobias Burnus <burnus@net-b.de>
PR fortran/33941
* gfortran.dg/module_read_1.f90: New.
From-SVN: r129801
Diffstat (limited to 'gcc/testsuite/gfortran.dg/module_read_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/module_read_1.f90 | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/module_read_1.f90 b/gcc/testsuite/gfortran.dg/module_read_1.f90 new file mode 100644 index 00000000000..9a680a62f3e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/module_read_1.f90 @@ -0,0 +1,29 @@ +! { dg-do run } +! PR fortran/33941 +! The problem was that the intrinsic operators +! were written to the module file as '/=' etc. +! but this format was not understood on reading. +! +! Test case by Toby White, stripped down by +! Dominique d'Humieres and Francois-Xavier Coudert + +module foo +contains + function pop(n) result(item) + integer :: n + character(len=merge(1, 0, n > 0)) :: item + end function pop + function push(n) result(item) + integer :: n + character(len=merge(1, 0, n /= 0)) :: item + end function push +end module foo + +program test + use foo + if(len(pop(0)) /= 0) call abort() + if(len(pop(1)) /= 1) call abort() + if(len(push(0)) /= 0) call abort() + if(len(push(1)) /= 1) call abort() +end program +! { dg-final { cleanup-modules "foo" } } |