Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/bind_c_usage_21.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/45211
kono
parents:
diff changeset
4 !
kono
parents:
diff changeset
5 ! Contributed by Scot Breitenfeld
kono
parents:
diff changeset
6 !
kono
parents:
diff changeset
7 module m
kono
parents:
diff changeset
8 contains
kono
parents:
diff changeset
9 FUNCTION liter_cb(link_info) bind(C)
kono
parents:
diff changeset
10 USE ISO_C_BINDING
kono
parents:
diff changeset
11 IMPLICIT NONE
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 INTEGER(c_int) liter_cb
kono
parents:
diff changeset
14
kono
parents:
diff changeset
15 TYPE, bind(C) :: info_t
kono
parents:
diff changeset
16 INTEGER(c_int) :: type
kono
parents:
diff changeset
17 END TYPE info_t
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 TYPE(info_t) :: link_info
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 liter_cb = 0
kono
parents:
diff changeset
22 END FUNCTION liter_cb
kono
parents:
diff changeset
23 end module m