blob: 8a0d3119fb4823a70ad8a4690ab5c6f1d533bdaa (
plain)
1
2
3
4
5
6
7
8
|
C { dg-do compile }
TYPE T
INTEGER A(2)/1,2/ ! { dg-error "Invalid old style initialization for derived type component" }
END TYPE
TYPE S
INTEGER B/1/ ! { dg-error "Invalid old style initialization for derived type component" }
END TYPE
END
|