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
PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
used_types_19.f90
blob
406e874c42ba5060dd30328fadd2f51fa8f929a3
1
! { dg-do compile }
2
! Tests the fix for PR34335 a regression in which the PRIVATE attribute
3
! of type(a) in module b would be ignored and would prevent it being
4
! loaded in the main program.
5
!
6
! Contributed by Janus Weil <jaydub66@gmail.com>
7
!
8
module
A
9
type
A_type
10
real
comp
11
end type
12
end module
A
13
14
module
B
15
use
A
16
private
17
type
(
A_type
) ::
B_var
18
public
::
B_var
19
end module
B
20
21
program
C
22
use
B
23
use
A
24
type
(
A_type
)::
A_var
25
end program
C