repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
alloc_comp_deep_copy_2.f03
blob
595775b32cef8b86d4623f91423f9e0e95cd45ea
1
! { dg-do run }
2
!
3
! Testcase for PR fortran/65841
4
! Contributed by Damian Rousson
5
!
6
program alloc_comp_deep_copy_2
7
type a
8
real, allocatable :: f
9
end type
10
type b
11
type(a), allocatable :: g
12
end type
13
14
type(b) c,d
15
16
c%g=a(1.)
17
d=c
18
if (d%g%f /= 1.0) STOP 1
19
d%g%f = 2.0
20
if (d%g%f /= 2.0) STOP 2
21
end program