OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PR debug/43329
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
whole_file_13.f90
1
! { dg-do run }
2
! { dg-options "-fwhole-file -O3" }
3
! Check that the TYPE_CANONICAL is being correctly set
4
! for the derived types, when whole file compiling.
5
! (based on import.f90)
6
!
7
subroutine test(x)
8
type myType3
9
sequence
10
integer :: i
11
end type myType3
12
type(myType3) :: x
13
if(x%i /= 7) call abort()
14
x%i = 1
15
end subroutine test
16
17
18
program foo
19
type myType3
20
sequence
21
integer :: i
22
end type myType3
23
24
type(myType3) :: z
25
z%i = 7
26
call test(z)
27
if(z%i /= 1) call abort
28
end program foo