OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/85448 (Report binding label clash with a global identifyer)

Browse Source 
2019-04-14  Thomas Koenig  <tkoenig@gcc.gnu.org>

    PR fortran/85448
    * gfortran.dg/bind_c_usage_33.f90: New test and...
    * gfortran.dg/bind_c_usage_33_c.c: Additional source.

From-SVN: r270354
This commit is contained in:
Thomas Koenig 2019-04-14 20:15:48 +00:00
parent 0d78e4aa06
commit ceae614e1d
3 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2019-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/85448
* gfortran.dg/bind_c_usage_33.f90: New test and...
* gfortran.dg/bind_c_usage_33_c.c: Additional source.
2019-04-14 Paul Thomas <pault@gcc.gnu.org>
PR fortran/89843

21
gcc/testsuite/gfortran.dg/bind_c_usage_33.f90 Normal file
View File

@ -0,0 +1,21 @@
! { dg-do run }
! { dg-additional-sources bind_c_usage_33_c.c }
module m1
implicit none
contains
subroutine odopen(unit)
integer,intent(out) :: unit
unit=8
end subroutine
end module
module m2
use iso_c_binding
use m1
implicit none
contains
subroutine c_odopen(unit) bind(c,name="odopen")
integer(c_int),intent(out) :: unit
call odopen(unit)
end subroutine
end module

15
gcc/testsuite/gfortran.dg/bind_c_usage_33_c.c Normal file
View File

@ -0,0 +1,15 @@
#include <stdio.h>
void odopen(int*);
int main()
{
int unit = 42;
odopen(&unit);
if (unit != 8)
{
fprintf(stderr,"wrong result");
return 1;
}
return 0;
}