1! { dg-do run }
2! Structure constructor with default initialization.
3
4PROGRAM test
5  IMPLICIT NONE
6
7  ! Type with all default values
8  TYPE :: quasiempty_t
9    CHARACTER(len=5) :: greeting = "hello"
10  END TYPE quasiempty_t
11
12  ! Structure of basic data types
13  TYPE :: basics_t
14    INTEGER :: i = 42
15    REAL :: r
16    COMPLEX :: c = (0., 1.)
17  END TYPE basics_t
18
19  TYPE(quasiempty_t) :: empty
20  TYPE(basics_t) :: basics
21
22  empty = quasiempty_t ()
23  IF (empty%greeting /= "hello") THEN
24    CALL abort()
25  END IF
26
27  basics = basics_t (r = 1.5)
28  IF (basics%i /= 42 .OR. basics%r /= 1.5 .OR. basics%c /= (0., 1.)) THEN
29    CALL abort()
30  END IF
31
32  basics%c = (0., 0.) ! So we see it's surely gotten re-initialized
33  basics = basics_t (1, 5.1)
34  IF (basics%i /= 1 .OR. basics%r /= 5.1 .OR. basics%c /= (0., 1.)) THEN
35    CALL abort()
36  END IF
37
38END PROGRAM test
39