Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/entry_12.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
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 ! Tests the fix for pr31609, where module procedure entries found
kono
parents:
diff changeset
3 ! themselves in the wrong namespace. This test checks that all
kono
parents:
diff changeset
4 ! combinations of generic and specific calls work correctly.
kono
parents:
diff changeset
5 !
kono
parents:
diff changeset
6 ! Contributed by Paul Thomas <pault@gcc.gnu.org> as comment #8 to the pr.
kono
parents:
diff changeset
7 !
kono
parents:
diff changeset
8 MODULE ksbin1_aux_mod
kono
parents:
diff changeset
9 interface foo
kono
parents:
diff changeset
10 module procedure j
kono
parents:
diff changeset
11 end interface
kono
parents:
diff changeset
12 interface bar
kono
parents:
diff changeset
13 module procedure k
kono
parents:
diff changeset
14 end interface
kono
parents:
diff changeset
15 interface foobar
kono
parents:
diff changeset
16 module procedure j, k
kono
parents:
diff changeset
17 end interface
kono
parents:
diff changeset
18 CONTAINS
kono
parents:
diff changeset
19 FUNCTION j ()
kono
parents:
diff changeset
20 j = 1
kono
parents:
diff changeset
21 return
kono
parents:
diff changeset
22 ENTRY k (i)
kono
parents:
diff changeset
23 k = 2
kono
parents:
diff changeset
24 END FUNCTION j
kono
parents:
diff changeset
25 END MODULE ksbin1_aux_mod
kono
parents:
diff changeset
26
kono
parents:
diff changeset
27 use ksbin1_aux_mod
kono
parents:
diff changeset
28 if (any ((/foo (), bar (99), foobar (), foobar (99), j (), k (99)/) .ne. &
kono
parents:
diff changeset
29 (/1, 2, 1, 2, 1, 2/))) Call abort ()
kono
parents:
diff changeset
30 end