1! { dg-do run }
2! Test the fix for PR56008
3!
4! Contributed by Stefan Mauerberger  <stefan.mauerberger@gmail.com>
5!
6PROGRAM main
7    !USE MPI
8
9    TYPE :: test_typ
10        REAL, ALLOCATABLE :: a(:)
11    END TYPE
12
13    TYPE(test_typ) :: xx, yy
14    TYPE(test_typ), ALLOCATABLE :: conc(:)
15
16    !CALL MPI_INIT(i)
17
18    xx = test_typ( [1.0,2.0] )
19    yy = test_typ( [4.0,4.9] )
20
21    conc = [ xx, yy ]
22
23    if (any (int (10.0*conc(1)%a) .ne. [10,20])) call abort
24    if (any (int (10.0*conc(2)%a) .ne. [40,49])) call abort
25
26    !CALL MPI_FINALIZE(i)
27
28END PROGRAM main
29