5 ! The asynchronous specifier for a data transfer statement shall be
6 ! an initialization expression
8 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
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 "must be an initialization expression" }
15 read (*,*, asynchronous="Y"//"e"//trim("S "))
16 read (*,*, asynchronous=no) ! { dg-error "must be an initialization expression" }