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