blob: 7329808611cb98e16eee2b0b97d8ca4e938f15bd (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
! { dg-options "-fcoarray=lib" }
! PR fortran/69419 - ICE on invalid coarray in common
blockdata b
real x ! { dg-error "must be in COMMON" }
common /c/ x[*] ! { dg-error "cannot be a coarray" }
data x /1.0/
end
|