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