用于进行gcc测试

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