blob: dd5a5537f46e60408797ab4184db65e94f16b9e9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
type t
end type t
type(t) :: a[*]
call test(a) ! { dg-error "Rank mismatch in argument 'x' at .1. .rank-1 and scalar." }
contains
subroutine test(x)
class(t) :: x(:)[*]
print *, ucobound(x)
end
end
|