39 lines
856 B
Fortran
39 lines
856 B
Fortran
|
! { 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
|