blob: 277d61aae82c7e287eacb18bacc59b679cf4783e (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
! { dg-options "-fcoarray=single" }
! Code contributed by Gerhard Steinmetz
! PR fortran/91802
module m
real :: x
dimension :: x(1,2,1,2,1,2,1,2)
codimension :: x[1,2,1,2,1,2,1,*] ! { dg-error "exceeds 15" }
end
|