! { dg-do compile } | |
program p | |
shape(1) = 0 ! { dg-error "expression in variable definition context" } | |
shape(1,2) = 0 ! { dg-error "expression in variable definition context" } | |
shape(1,2,3) = 0 ! { dg-error "Too many arguments in call" } | |
lbound([1]) = 0 ! { dg-error "expression in variable definition context" } | |
end |