gcc/testsuite/gfortran.dg/stfunc_1.f90 - chromiumos/third_party/gcc - Git at Google

 ! { dg-do run }
 ! { dg-options "-std=legacy" }
 !
 ! 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
	! { dg-do run }
	! { dg-options "-std=legacy" }
	!
	! 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