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

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! PR 14771
kono
parents:
diff changeset
2 ! { dg-do run }
kono
parents:
diff changeset
3 ! Originally contributed by Walt Brainerd, modified for the testsuite
kono
parents:
diff changeset
4 PROGRAM fc107
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 ! Submitted by Walt Brainerd, The Fortran Company
kono
parents:
diff changeset
7 ! GNU Fortran 95 (GCC 4.1.0 20050322 (experimental))
kono
parents:
diff changeset
8 ! Windows XP
kono
parents:
diff changeset
9
kono
parents:
diff changeset
10 ! Return value should be 3
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 INTEGER I, J, M(2), N(2)
kono
parents:
diff changeset
13 integer, pointer :: k
kono
parents:
diff changeset
14 integer, target :: l
kono
parents:
diff changeset
15 INTEGER TRYME
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 interface
kono
parents:
diff changeset
18 FUNCTION TRYyou(RTNME,HITME)
kono
parents:
diff changeset
19 INTEGER RTNME(2),HITME(2), tryyou(2)
kono
parents:
diff changeset
20 END function tryyou
kono
parents:
diff changeset
21 end interface
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 m = 7
kono
parents:
diff changeset
24 l = 5
kono
parents:
diff changeset
25 I = 3
kono
parents:
diff changeset
26 k => l
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 j = tryme((i),i)
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
29 if (j .ne. 3) STOP 1
111
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 j = tryme((k),k)
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
32 if (j .ne. 5) STOP 2
111
kono
parents:
diff changeset
33
kono
parents:
diff changeset
34 n = tryyou((m),m)
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
35 if (any(n .ne. 7)) STOP 3
111
kono
parents:
diff changeset
36 END
kono
parents:
diff changeset
37
kono
parents:
diff changeset
38 INTEGER FUNCTION TRYME(RTNME,HITME)
kono
parents:
diff changeset
39 INTEGER RTNME,HITME
kono
parents:
diff changeset
40 HITME = 999
kono
parents:
diff changeset
41 TRYME = RTNME
kono
parents:
diff changeset
42 END
kono
parents:
diff changeset
43
kono
parents:
diff changeset
44 FUNCTION TRYyou(RTNME,HITME)
kono
parents:
diff changeset
45 INTEGER RTNME(2),HITME(2), tryyou(2)
kono
parents:
diff changeset
46 HITME = 999
kono
parents:
diff changeset
47 TRYyou = RTNME
kono
parents:
diff changeset
48 END