gcc/testsuite/gfortran.dg/write_check4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/35840
   4 !
   5 ! The asynchronous specifier for a data transfer statement shall be
   6 ! an initialization expression
   7 !
   8 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   9 !
  10   character(2) :: no
  11   no = "no"
  12   open (unit=10, asynchronous = no)              ! Ok, it isn't a transfer stmt
  13   write(*,*, asynchronous="Y"//"E"//trim("S  ")) ! Ok, it is an init expr
  14   write(*,*, asynchronous=no)  ! { dg-error "does not reduce to a constant expression" }
  15   read (*,*, asynchronous="Y"//"e"//trim("S  "))
  16   read (*,*, asynchronous=no)  ! { dg-error "does not reduce to a constant expression" }
  17 end