2 ! Test the fix for PR56008
4 ! Contributed by Stefan Mauerberger <stefan.mauerberger@gmail.com>
10 REAL, ALLOCATABLE
:: a(:)
13 TYPE(test_typ
) :: xx
, yy
14 TYPE(test_typ
), ALLOCATABLE
:: conc(:)
18 xx
= test_typ( [1.0,2.0] )
19 yy
= test_typ( [4.0,4.9] )
23 if (any (int (10.0*conc(1)%a
) .ne
. [10,20])) STOP 1
24 if (any (int (10.0*conc(2)%a
) .ne
. [40,49])) STOP 2