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:
parent
ee9430623a
commit
f96c612393
|
@ -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>
|
2003-03-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
||||||
|
|
||||||
PR fortran/16907
|
PR fortran/16907
|
||||||
|
|
|
@ -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
|
Loading…
Reference in New Issue