1! { dg-do run }
2! PR fortran/27997
3!
4! Array constructor with typespec
5! for derived types.
6
7PROGRAM test
8  IMPLICIT NONE
9
10  TYPE foo
11    INTEGER :: i
12    REAL :: x
13  END TYPE foo
14
15  TYPE(foo), PARAMETER :: x = foo(42, 42.)
16
17  TYPE(foo), DIMENSION(2) :: arr
18
19  arr = (/ foo :: x, foo(0, 1.) /)
20  IF (arr(1)%i /= 42 .OR. arr(1)%x /= 42. .OR. &
21      arr(2)%i /= 0 .OR. arr(2)%x /= 1.) THEN
22    STOP 1
23  END IF
24END PROGRAM test
25