blob: 0e6318cfea0ebd2044dbd2fd9387611d33185d4a [file] [log] [blame]
! { dg-do compile }
! { dg-options "-std=f2008" }
!
! PR fortran/48820
!
!
subroutine foo(x)
integer :: x(..) ! { dg-error "Fortran 2018: Assumed-rank array" }
end subroutine foo