Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/binding_label_tests_7.f03 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do compile } |
2 module A | |
3 use, intrinsic :: iso_c_binding, only: c_int | |
131 | 4 integer(c_int), bind(c, name='my_c_print') :: my_int ! { dg-error "Procedure 'my_c_print' with binding label 'my_c_print' at .1. uses the same global identifier as entity at .2." } |
111 | 5 end module A |
6 | |
7 program main | |
8 use A | |
9 interface | |
131 | 10 subroutine my_c_print() bind(c) ! { dg-error "Procedure 'my_c_print' with binding label 'my_c_print' at .1. uses the same global identifier as entity at .2." } |
111 | 11 end subroutine my_c_print |
12 end interface | |
13 | |
14 call my_c_print() | |
15 end program main |