gcc/testsuite/gfortran.dg/write_check5.f90

   1 ! { dg-do compile }
   2 !
   3 ! The asynchronous specifier for a data transfer statement shall be
   4 ! an initialization expression
   5 !
   6
   7 module write_check5
   8 contains
   9
  10 function no()
  11   implicit none
  12   character(3) :: no
  13   no = "yes"
  14 endfunction
  15
  16 end module
  17
  18 use write_check5
  19 implicit none
  20
  21 open (unit=10, asynchronous=no())              ! Ok, it isn't a transfer stmt
  22 write(*,*, asynchronous=no())  ! { dg-error "must be an intrinsic function" }
  23 read (*,*, asynchronous=no())  ! { dg-error "must be an intrinsic function" }
  24 end