| ! { dg-do run } | |
| ! Test the fix for PR56008 | |
| ! | |
| ! Contributed by Stefan Mauerberger <stefan.mauerberger@gmail.com> | |
| ! | |
| PROGRAM main | |
| !USE MPI | |
| TYPE :: test_typ | |
| REAL, ALLOCATABLE :: a(:) | |
| END TYPE | |
| TYPE(test_typ) :: xx, yy | |
| TYPE(test_typ), ALLOCATABLE :: conc(:) | |
| !CALL MPI_INIT(i) | |
| xx = test_typ( [1.0,2.0] ) | |
| yy = test_typ( [4.0,4.9] ) | |
| conc = [ xx, yy ] | |
| if (any (int (10.0*conc(1)%a) .ne. [10,20])) call abort | |
| if (any (int (10.0*conc(2)%a) .ne. [40,49])) call abort | |
| !CALL MPI_FINALIZE(i) | |
| END PROGRAM main |