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 "must be an initialization expression" } 15 read (*,*, asynchronous="Y"//"e"//trim("S ")) 16 read (*,*, asynchronous=no) ! { dg-error "must be an initialization expression" } 17end 18