blob: 84af6670f66d70d454e4f52e9ed23427a37665cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { 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
|