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

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

From-SVN: r96389

gcc/testsuite/ChangeLog

 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
 	* gfortran.dg/real_index_1.f90: New test.
 

gcc/testsuite/gfortran.dg/stfunc_1.f90

+! { 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