21 lines
532 B
Fortran
21 lines
532 B
Fortran
! { dg-do compile }
|
|
! Structure constructor with default initialization, test that an error is
|
|
! emitted for components without default initializer missing value.
|
|
|
|
PROGRAM test
|
|
IMPLICIT NONE
|
|
|
|
! Structure of basic data types
|
|
TYPE :: basics_t
|
|
INTEGER :: i = 42
|
|
REAL :: r
|
|
COMPLEX :: c = (0., 1.)
|
|
END TYPE basics_t
|
|
|
|
TYPE(basics_t) :: basics
|
|
|
|
basics = basics_t (i = 42) ! { dg-error "No initializer for component 'r'" }
|
|
basics = basics_t (42) ! { dg-error "No initializer for component 'r'" }
|
|
|
|
END PROGRAM test
|