blob: 0a3cada90d2b0c9a5ffb01ec99df98f7ce0f78eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
! Argument checking
!
implicit none
type t
integer :: i
integer,allocatable :: j
end type t
type(t), save :: x[*]
call sub1(x%i)
call sub1(x[1]%i) ! { dg-error "must be a coarray" }
contains
subroutine sub1(y)
integer :: y[*]
end subroutine sub1
end
|
