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 | |
parent | 5b9a40df4e3e9c4253239bbc32578eda155577ea (diff) | |
download | gcc-1e4c40729a2606b0b3cd7993d9f6faac7ca1506b.zip gcc-1e4c40729a2606b0b3cd7993d9f6faac7ca1506b.tar.gz gcc-1e4c40729a2606b0b3cd7993d9f6faac7ca1506b.tar.bz2 |
[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')
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/module.c | 12 | ||||
-rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/module_read_1.f90 | 29 |
4 files changed, 47 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 96e7a73..71c8d54 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR fortran/33162 diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 12c4516..a05437a 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -2627,17 +2627,17 @@ static const mstring intrinsics[] = minit ("OR", INTRINSIC_OR), minit ("EQV", INTRINSIC_EQV), minit ("NEQV", INTRINSIC_NEQV), - minit ("==", INTRINSIC_EQ), + minit ("EQ_SIGN", INTRINSIC_EQ), minit ("EQ", INTRINSIC_EQ_OS), - minit ("/=", INTRINSIC_NE), + minit ("NE_SIGN", INTRINSIC_NE), minit ("NE", INTRINSIC_NE_OS), - minit (">", INTRINSIC_GT), + minit ("GT_SIGN", INTRINSIC_GT), minit ("GT", INTRINSIC_GT_OS), - minit (">=", INTRINSIC_GE), + minit ("GE_SIGN", INTRINSIC_GE), minit ("GE", INTRINSIC_GE_OS), - minit ("<", INTRINSIC_LT), + minit ("LT_SIGN", INTRINSIC_LT), minit ("LT", INTRINSIC_LT_OS), - minit ("<=", INTRINSIC_LE), + minit ("LE_SIGN", INTRINSIC_LE), minit ("LE", INTRINSIC_LE_OS), minit ("NOT", INTRINSIC_NOT), minit ("PARENTHESES", INTRINSIC_PARENTHESES), diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 46dcd8f..9ff71b5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +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. + 2007-10-31 Tom Tromey <tromey@redhat.com> PR preprocessor/30786: 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 0000000..9a680a6 --- /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" } } |