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