Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/realloc_on_assign_16a.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do compile }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 ! { dg-options "-Ofast -fno-tree-forwprop" }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 ! Test that PR 82976 is fixed, this used to ICE.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 !
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 ! Contributed by Stefan Mauerberger <stefan.mauerberger@gmail.com>
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 !
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 PROGRAM main
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 !USE MPI
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 TYPE :: test_typ
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 REAL, ALLOCATABLE :: a(:)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 END TYPE
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 TYPE(test_typ) :: xx, yy
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 TYPE(test_typ), ALLOCATABLE :: conc(:)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17 !CALL MPI_INIT(i)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 xx = test_typ( [1.0,2.0] )
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 yy = test_typ( [4.0,4.9] )
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 conc = [ xx, yy ]
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 if (any (int (10.0*conc(1)%a) .ne. [10,20])) STOP 1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 if (any (int (10.0*conc(2)%a) .ne. [40,49])) STOP 2
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 !CALL MPI_FINALIZE(i)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29 END PROGRAM main