1! { dg-do compile } 2! Check that pointer components are allowed to empty types. 3 4TYPE :: empty_t 5END TYPE empty_t 6 7TYPE :: comp_t 8 TYPE(empty_t), POINTER :: ptr 9END TYPE comp_t 10 11END 12