| ! { dg-do compile } | |
| ! Tests the fix for PR34335 a regression in which the PRIVATE attribute | |
| ! of type(a) in module b would be ignored and would prevent it being | |
| ! loaded in the main program. | |
| ! | |
| ! Contributed by Janus Weil <jaydub66@gmail.com> | |
| ! | |
| module A | |
| type A_type | |
| real comp | |
| end type | |
| end module A | |
| module B | |
| use A | |
| private | |
| type(A_type) :: B_var | |
| public:: B_var | |
| end module B | |
| program C | |
| use B | |
| use A | |
| type(A_type):: A_var | |
| end program C |