Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pointer_init_4.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 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 !
kono
parents:
diff changeset
3 ! PR 45290: [F08] pointer initialization
kono
parents:
diff changeset
4 !
kono
parents:
diff changeset
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 module m
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 implicit none
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 contains
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 integer function f1()
kono
parents:
diff changeset
14 f1 = 42
kono
parents:
diff changeset
15 end function
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 integer function f2()
kono
parents:
diff changeset
18 f2 = 43
kono
parents:
diff changeset
19 end function
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 end module
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23
kono
parents:
diff changeset
24 program test_ptr_init
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 use m
kono
parents:
diff changeset
27 implicit none
kono
parents:
diff changeset
28
kono
parents:
diff changeset
29 procedure(f1), pointer :: pp => f1
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 type :: t
kono
parents:
diff changeset
32 procedure(f2), pointer, nopass :: ppc => f2
kono
parents:
diff changeset
33 end type
kono
parents:
diff changeset
34
kono
parents:
diff changeset
35 type (t) :: u
kono
parents:
diff changeset
36
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
37 if (pp()/=42) STOP 1
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
38 if (u%ppc()/=43) STOP 2
111
kono
parents:
diff changeset
39
kono
parents:
diff changeset
40 end