1! { dg-do compile } 2! Structure constructor with default initialization, test that an error is 3! emitted for components without default initializer missing value. 4 5PROGRAM test 6 IMPLICIT NONE 7 8 ! Structure of basic data types 9 TYPE :: basics_t 10 INTEGER :: i = 42 11 REAL :: r 12 COMPLEX :: c = (0., 1.) 13 END TYPE basics_t 14 15 TYPE(basics_t) :: basics 16 17 basics = basics_t (i = 42) ! { dg-error "No initializer for component 'r'" } 18 basics = basics_t (42) ! { dg-error "No initializer for component 'r'" } 19 20END PROGRAM test 21