Fortran/gfortran/regression/assumed_rank_5.f90 - llvm-test-suite - Git at Google

 ! { 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
	! { 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