blob: 61d7fa149a622c4fe3b24d5d9e1ce1d0506271d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
! PR fortran/93364 - check fix for ICE in gfc_set_array_spec
type(t) function f()
codimension :: t[1,2,1,2,1,2,1,*]
dimension :: t(1,2,1,2,1,2,1,2)
end
! { dg-error "has not been declared" " " { target *-*-* } 6 }
! { dg-error "is of type 't'" " " { target *-*-* } 6 }
! { dg-error "rank \\+ corank of" " " { target *-*-* } 8 }
|
