Subversion Repositories openrisc

! { dg-do run }
! Structure constructor with default initialization.

PROGRAM test
  IMPLICIT NONE

  ! Type with all default values
  TYPE :: quasiempty_t
    CHARACTER(len=5) :: greeting = "hello"
  END TYPE quasiempty_t

  ! Structure of basic data types
  TYPE :: basics_t
    INTEGER :: i = 42
    REAL :: r
    COMPLEX :: c = (0., 1.)
  END TYPE basics_t

  TYPE(quasiempty_t) :: empty
  TYPE(basics_t) :: basics

  empty = quasiempty_t ()
  IF (empty%greeting /= "hello") THEN
    CALL abort()
  END IF

  basics = basics_t (r = 1.5)
  IF (basics%i /= 42 .OR. basics%r /= 1.5 .OR. basics%c /= (0., 1.)) THEN
    CALL abort()
  END IF

  basics%c = (0., 0.) ! So we see it's surely gotten re-initialized
  basics = basics_t (1, 5.1)
  IF (basics%i /= 1 .OR. basics%r /= 5.1 .OR. basics%c /= (0., 1.)) THEN
    CALL abort()
  END IF

END PROGRAM test