blob: 09ab8c9f34f270aab07212a63e53aafc00587476 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
! PR fortran/108501 - ICE in get_expr_storage_size
! Contributed by G.Steinmetz
program p
real, parameter :: n = 2
real :: a(1,(n),2) ! { dg-error "must be of INTEGER type" }
call s(a(:,:,1))
end
subroutine s(x)
real :: x(2)
end
! { dg-prune-output "must have constant shape" }
|