blob: f13a641b3b71febbf450cb36352fba72a8a4a54c (
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 }
! PR fortran/42651
integer function func()
asynchronous :: func
integer, asynchronous:: b
allocatable :: c
volatile :: func
type t
sequence
integer :: i = 5
end type t
end function func
function func2() result(res) ! { dg-error " RESULT variable" }
volatile res
asynchronous res
target func2 ! { dg-error " RESULT variable" }
volatile func2 ! { dg-error " RESULT variable" }
asynchronous func2 ! { dg-error " RESULT variable" }
allocatable func2 ! { dg-error " RESULT variable" }
dimension func2(2) ! { dg-error " RESULT variable" }
codimension func2[*] ! { dg-error " RESULT variable" }
contiguous func2 ! { dg-error " RESULT variable" }
end function func2
|
