| ! { dg-do compile } | |
| ! PR fortran/108453 - a use associated variable cannot occur in COMMON | |
| ! Contributed by G.Steinmetz | |
| module m | |
| type t | |
| end type | |
| real :: r | |
| end | |
| program p | |
| use m, only: t, r | |
| common t ! { dg-error "USE associated from module" } | |
| common /cm/ r ! { dg-error "USE associated from module" } | |
| end |