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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
! { dg-do compile }
! { dg-options "-finit-derived -finit-integer=42 -finit-real=inf -finit-logical=true -finit-character=32 -fdump-tree-original" }
!
! Make sure -finit-derived initializes components of local derived type
! variables according to other -finit-* flags.
!
subroutine dummy(i1,r1,c1,l1,i2,r2,c2,l2)
implicit none
integer, intent(in) :: i1
real, intent(in) :: r1
character, intent(in) :: c1
logical, intent(in) :: l1
integer, intent(out) :: i2
real, intent(out) :: r2
character, intent(out) :: c2
logical, intent(out) :: l2
end subroutine
type t2
integer i2
real r2
character c2
logical l2
end type
type t1
logical l1
real r1
character c1
integer i1
type (t2) y
end type
type (t1) :: x
call dummy (x%i1, x%r1, x%c1, x%l1, x%y%i2, x%y%r2, x%y%c2, x%y%l2)
end
! We expect to see each component initialized exactly once in MAIN.
! NB. the "once" qualifier also tests that the dummy variables aren't
! given an extraneous initializer.
! { dg-final { scan-tree-dump-times "i1= *42" 1 "original" } }
! { dg-final { scan-tree-dump-times "r1= *\[iI]nf" 1 "original" } }
! { dg-final { scan-tree-dump-times "c1= *\" \"" 1 "original" } }
! { dg-final { scan-tree-dump-times "l1= *1" 1 "original" } }
! { dg-final { scan-tree-dump-times "i2= *42" 1 "original" } }
! { dg-final { scan-tree-dump-times "r2= *\[iI]nf" 1 "original" } }
! { dg-final { scan-tree-dump-times "c2= *\" \"" 1 "original" } }
! { dg-final { scan-tree-dump-times "l2= *1" 1 "original" } }
|
