From 1e4c40729a2606b0b3cd7993d9f6faac7ca1506b Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 31 Oct 2007 16:10:12 +0100 Subject: [multiple changes] 2007-10-31 Tobias Burnus PR fortran/33941 * modules.c (intrinsics): Use only alphabetic names for intrinsic operators. 2007-10-31 Dominique d'Humieres Tobias Burnus PR fortran/33941 * gfortran.dg/module_read_1.f90: New. From-SVN: r129801 --- gcc/testsuite/gfortran.dg/module_read_1.f90 | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/module_read_1.f90 (limited to 'gcc/testsuite/gfortran.dg/module_read_1.f90') 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" } } -- cgit v1.2.1