mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-08 10:50:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/48972 (OPEN with Unicode file name)

Browse Source 
2011-05-12  Tobias Burnus  <burnus@net-b.de>

        PR fortran/48972
        * resolve.c (resolve_intrinsic): Don't resolve module
        intrinsics multiple times.

2011-05-12  Tobias Burnus  <burnus@net-b.de>

        PR fortran/48972
        * gfortran.dg/iso_c_binding_compiler_3.f90: New.

From-SVN: r173708
This commit is contained in:
Tobias Burnus 2011-05-12 19:40:29 +02:00 committed by Tobias Burnus
parent 16c20b0a55
commit 13157033d4
4 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2011-05-12 Tobias Burnus <burnus@net-b.de>
PR fortran/48972
* resolve.c (resolve_intrinsic): Don't resolve module
intrinsics multiple times.
2011-05-11 Tobias Burnus <burnus@net-b.de>
PR fortran/48889

4
gcc/fortran/resolve.c
View File

@ -1441,6 +1441,10 @@ resolve_intrinsic (gfc_symbol *sym, locus *loc)
if (sym->formal)
return SUCCESS;
/* Already resolved. */
if (sym->from_intmod && sym->ts.type != BT_UNKNOWN)
return SUCCESS;
/* We already know this one is an intrinsic, so we don't call
gfc_is_intrinsic for full checking but rather use gfc_find_function and
gfc_find_subroutine directly to check whether it is a function or

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2011-05-12 Tobias Burnus <burnus@net-b.de>
PR fortran/48972
* gfortran.dg/iso_c_binding_compiler_3.f90: New.
2011-05-12 Jason Merrill <jason@redhat.com>
* g++.dg/cpp0x/constexpr-incomplete2.C: New.

27
gcc/testsuite/gfortran.dg/iso_c_binding_compiler_3.f90 Normal file
View File

@ -0,0 +1,27 @@
! { dg-do compile }
! { dg-options "-Wall" }
!
! PR fortran/45823
!
! We used to warn about
! "Type specified for intrinsic function" for this file
!
use iso_c_binding
use iso_Fortran_env
implicit none
intrinsic sin
real :: x = 3.4
print *, sin(x), c_sizeof(c_int), compiler_options(), compiler_version()
end
module test_mod
use iso_fortran_env
end module test_mod
subroutine test
use test_mod
end subroutine test
! { dg-final { cleanup-modules "test_mod" } }