text: ! { 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
  