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
* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
der_io_3.f90
blob
13035fe98614d9c3dd52fc875461f1a37d96235c
1
! { dg-do compile }
2
! { dg-options "-std=legacy" }
3
!
4
! PR23843
5
! Make sure derived type I/O with PRIVATE components works where it's allowed
6
module
m1
7
type
t1
8
integer
i
9
end type
t1
10
end module
m1
11
12
module
m2
13
use
m1
14
15
type
t2
16
private
17
type
(
t1
)
t
18
end type
t2
19
20
type
t3
21
private
22
integer
i
23
end type
t3
24
25
contains
26
subroutine
test
27
character
*
20
c
28
type
(
t2
) ::
a
29
type
(
t3
) ::
b
30
31
a
%
t
%
i
=
31337
32
b
%
i
=
255
33
34
write
(
c
,*)
a
35
if
(
trim
(
adjustl
(
c
)) /=
"31337"
)
call
abort
36
write
(
c
,*)
b
37
if
(
trim
(
adjustl
(
c
)) /=
"255"
)
call
abort
38
end subroutine
test
39
end module
m2
40
41
use
m2
42
call
test
43
end