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!
8module A
9  type A_type
10    real comp
11  end type
12end module A
13
14module B
15  use A
16  private
17  type(A_type) :: B_var
18  public:: B_var
19end module B
20
21program C
22  use B
23  use A
24  type(A_type):: A_var
25end program C
26