blob: eae3d8fc41e82e6bde72fa5d7d1ed88e1b67cd7f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
! Related to PR 93499 - this used to ICE.
program p
type t(n)
integer, kind :: n
end type t
type u(n)
integer, len :: n
end type u
type(t((0)/0)) :: x ! { dg-error "does not simplify to an INTEGER" }
type(t((0.)/0)) :: y ! { dg-error "must be of INTEGER type" }
type(u(0/(0.))) :: z ! { dg-error "must be of INTEGER type" }
end
|