Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr80668.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! { dg-options "-finit-derived -finit-integer=12345678" }
kono
parents:
diff changeset
3 !
kono
parents:
diff changeset
4 ! PR fortran/80668
kono
parents:
diff changeset
5 !
kono
parents:
diff changeset
6 ! Test a regression where structure constructor expressions were created for
kono
parents:
diff changeset
7 ! POINTER components with -finit-derived.
kono
parents:
diff changeset
8 !
kono
parents:
diff changeset
9
kono
parents:
diff changeset
10 MODULE pr80668
kono
parents:
diff changeset
11 IMPLICIT NONE
kono
parents:
diff changeset
12 TYPE :: dist_t
kono
parents:
diff changeset
13 INTEGER :: TYPE,nblks_loc,nblks
kono
parents:
diff changeset
14 INTEGER,DIMENSION(:),POINTER :: dist
kono
parents:
diff changeset
15 END TYPE dist_t
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 CONTAINS
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 SUBROUTINE hfx_new()
kono
parents:
diff changeset
20 TYPE(dist_t) :: dist
kono
parents:
diff changeset
21 integer,pointer :: bob
kono
parents:
diff changeset
22 CALL release_dist(dist, bob)
kono
parents:
diff changeset
23 END SUBROUTINE hfx_new
kono
parents:
diff changeset
24
kono
parents:
diff changeset
25 SUBROUTINE release_dist(dist,p)
kono
parents:
diff changeset
26 TYPE(dist_t) :: dist
kono
parents:
diff changeset
27 integer, pointer, intent(in) :: p
kono
parents:
diff changeset
28 END SUBROUTINE release_dist
kono
parents:
diff changeset
29 END MODULE