! { dg-do compile } | |
! PR fortran/102715 - ICE in gfc_simplify_transpose | |
program p | |
type t | |
end type | |
type(t), parameter :: a(4) = t() | |
type(t), parameter :: b(2,2) = reshape(a, [2]) ! { dg-error "Rank mismatch" } | |
type(t), parameter :: c(2,2) = transpose(b) ! { dg-error "must be of rank 2" } | |
type(t), parameter :: s2(*) = b(2,:) ! { dg-error "Syntax error" } | |
type(t), parameter :: x(*,*) = reshape(a, [2]) ! { dg-error "Rank mismatch" } | |
type(t), parameter :: s3(*) = x(2,:) ! { dg-error "Syntax error" } | |
end |