blob: 8bdc6bc556b1001af06a354e106a3e86a9e557fb (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
! PR fortran/87922
subroutine p
read(1, asynchronous=['no']) ! { dg-error "must be scalar" }
read(1, asynchronous=[character::]) ! { dg-error "must be scalar" }
end
subroutine q
write(1, asynchronous=['no']) ! { dg-error "must be scalar" }
write(1, asynchronous=[character::]) ! { dg-error "must be scalar" }
end
|
