1! { dg-do compile } 2! 3! PR fortran/54225 4! 5! Contributed by robb wu 6! 7program test 8 implicit none 9 real :: A(2,3) 10 11 print *, A(1, *) ! { dg-error "Expected array subscript" } 12end program 13 14subroutine test2 15integer, dimension(2) :: a 16a(*) = 1 ! { dg-error "Expected array subscript" } 17end 18