blob: e9a1185b5273716dd876bd10356281835812af57 [file] [log] [blame]
! { dg-do compile }
subroutine foo(a)
dimension a(*,*) ! { dg-error "Bad specification for assumed size array" }
end