procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/52452 (INTRINSIC cannot be applied to gfortran's ETIME)

Browse source 
2012-03-02  Tobias Burnus  <burnus@net-b.de>

        PR fortran/52452
        * resolve.c (resolve_intrinsic): Don't search for a
        function if we know that it is a subroutine.

2012-03-02  Tobias Burnus  <burnus@net-b.de>

        PR fortran/52452
        * gfortran.dg/intrinsic_8.f90: New.

From-SVN: r184778
This commit is contained in:
Tobias Burnus 2012-03-02 12:00:04 +01:00 • committed by Tobias Burnus
parent b70db788dd
commit 2b91eb32d6
4 changed files with 35 additions and 1 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 @@
2012-03-02 Tobias Burnus <burnus@net-b.de>
PR fortran/52452
* resolve.c (resolve_intrinsic): Don't search for a
function if we know that it is a subroutine.
2012-02-29 Paul Thomas <pault@gcc.gnu.org>
PR fortran/52386

2
gcc/fortran/resolve.c
View file

@ -1496,7 +1496,7 @@ resolve_intrinsic (gfc_symbol *sym, locus *loc)
if (sym->intmod_sym_id)
isym = gfc_intrinsic_function_by_id ((gfc_isym_id) sym->intmod_sym_id);
else
else if (!sym->attr.subroutine)
isym = gfc_find_function (sym->name);
if (isym)

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2012-03-02 Tobias Burnus <burnus@net-b.de>
PR fortran/52452
* gfortran.dg/intrinsic_8.f90: New.
2012-03-01 Kai Tietz <ktietz@redhat.com>
* gcc.dg/torture/pr47917.c: Make test using POSIX-printf

23
gcc/testsuite/gfortran.dg/intrinsic_8.f90 Normal file
View file

@ -0,0 +1,23 @@
! { dg-do compile }
!
! PR fortran/52452
!
! Contributed by Roger Ferrer Ibanez
!
PROGRAM test_etime
IMPLICIT NONE
INTRINSIC :: etime
REAL(4) :: tarray(1:2)
REAL(4) :: result
CALL etime(tarray, result)
END PROGRAM test_etime
subroutine test_etime2
IMPLICIT NONE
INTRINSIC :: etime
REAL(4) :: tarray(1:2)
REAL(4) :: result
result = etime(tarray)
END subroutine test_etime2