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