Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/proc_ptr_35.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
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 !
kono
parents:
diff changeset
3 ! PR fortran/52542
kono
parents:
diff changeset
4 !
kono
parents:
diff changeset
5 ! Ensure that the procedure myproc is Bind(C).
kono
parents:
diff changeset
6 !
kono
parents:
diff changeset
7 ! Contributed by Mat Cross of NAG
kono
parents:
diff changeset
8 !
kono
parents:
diff changeset
9 interface
kono
parents:
diff changeset
10 subroutine s() bind(c)
kono
parents:
diff changeset
11 end subroutine s
kono
parents:
diff changeset
12 end interface
kono
parents:
diff changeset
13 procedure(s) :: myproc
kono
parents:
diff changeset
14 call myproc()
kono
parents:
diff changeset
15 end
kono
parents:
diff changeset
16 ! { dg-final { scan-assembler-not "myproc_" } }