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