blob: cfd99938537f3734e655e9cfaa00800d5abe6814 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { dg-do compile }
!
! PR fortran/43362
!
module m
implicit none
type t
integer, pointer :: a
end type t
type t2
type(t) :: b
end type t2
type t3
type(t), pointer :: b
end type t3
contains
pure subroutine foo(x)
type(t), target, intent(in) :: x
type(t2) :: y
type(t3) :: z
! The following gave an ICE but is valid:
y = t2(x) ! Note: F2003, C1272 (3) and (4) do not apply
! Variant which is invalid as C1272 (3) applies
z = t3(x) ! { dg-error "Invalid expression in the structure constructor" }
end subroutine foo
end module m
|
