OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/18600 (ICE NIST FM020.f reduced case) 

PR fortran/18600
* gfortran.dg/stfunc_1.f90: New test.

From-SVN: r96389
This commit is contained in:
Tobias Schlüter 2005-03-13 20:28:18 +01:00 committed by Tobias Schlüter
parent ee9430623a
commit f96c612393
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2003-03-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/18600
* gfortran.dg/stfunc_1.f90: New test.
2003-03-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/16907

9
gcc/testsuite/gfortran.dg/stfunc_1.f90 Normal file
View File

@ -0,0 +1,9 @@
! { dg-do run }
! this is a problem which disappeared between 2005-01-02 and 2005-03-13
! PR 18600
logical a, b
a(b) = .true.
b = .false.
if (a(.false.)) b = .true.
if (.not.b) call abort
end