blob: 7b29a1c05a633105639938bca7f043a3a816105b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|
