2 ! { dg-options "-fcoarray=single" }
8 subroutine one(a
) ! { dg-error "may not have the ALLOCATABLE, CODIMENSION, POINTER or VALUE attribute" }
12 subroutine two(a
) ! { dg-error "may not have the ALLOCATABLE, CODIMENSION, POINTER or VALUE attribute" }
16 subroutine three(a
) ! { dg-error "may not have the ALLOCATABLE, CODIMENSION, POINTER or VALUE attribute" }
17 type(*), allocatable
:: a
20 subroutine four(a
) ! { dg-error "may not have the ALLOCATABLE, CODIMENSION, POINTER or VALUE attribute" }
24 subroutine five(a
) ! { dg-error "shall not be an explicit-shape array" }
29 type(*) :: nodum
! { dg-error "is only permitted for dummy variables" }
34 call a7(y(3:5)) ! { dg-error "Assumed-type variable y at .1. shall not have a subobject reference" }
43 type(*) :: x
! { dg-error "is not allowed for components" }
74 end subroutine ambig2
! { dg-error "Ambiguous interfaces 'ambig2' and 'ambig1' in generic interface 'three'" }
85 procedure
, nopass
:: proc
=> bar
88 call sub(xx
) ! { dg-error "is of derived type with type-bound or FINAL procedures" }
98 call bar(x
) ! { dg-error "Assumed-type argument x at .1. requires an explicit interface" }
103 call bar(x
) ! { dg-error "Type mismatch in argument" }
110 subroutine thirteen(x
, y
)
113 print *, ubound(y
, dim
=x
) ! { dg-error "Assumed-type argument at .1. is only permitted as first actual argument to the intrinsic ubound" }
114 end subroutine thirteen
116 subroutine fourteen(x
)
118 x
= x
! { dg-error "Assumed-type variable x at .1. may only be used as actual argument" }
119 end subroutine fourteen