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