view gcc/testsuite/gfortran.dg/structure_constructor_5.f03 @ 152:2b5abeee2509

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 84e7813d76e9
children
line wrap: on
line source

! { 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
    STOP 1
  END IF

  basics = basics_t (r = 1.5)
  IF (basics%i /= 42 .OR. basics%r /= 1.5 .OR. basics%c /= (0., 1.)) THEN
    STOP 2
  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
    STOP 3
  END IF

END PROGRAM test