1! { dg-do compile }
2! PR32361 Type declaration to initialize data in named common
3      BLOCK DATA
4       integer, pointer :: ptr1 => NULL()
5       common / T / ptr1
6      END
7