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

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

2012-03-22  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-22  Tobias Burnus  <burnus@net-b.de>

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

From-SVN: r185713
This commit is contained in:
Tobias Burnus 2012-03-22 22:13:00 +01:00
parent f145179afe
commit 5745473914
4 changed files with 48 additions and 14 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-22 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-22 Release Manager
* GCC 4.7.0 released.

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)

31
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2012-03-22 Tobias Burnus <burnus@net-b.de>
PR fortran/52452
* gfortran.dg/intrinsic_8.f90: New.
2012-03-22 Jakub Jelinek <jakub@redhat.com>
PR c++/52671
@ -16,21 +21,21 @@
Backport from 2012-03-20 mainline r185570.
PR target/49868
* gcc.target/avr/torture/addr-space-2.h: New file.
* gcc.target/avr/torture/addr-space-2-g.h: New test.
* gcc.target/avr/torture/addr-space-2-0.h: New test.
* gcc.target/avr/torture/addr-space-2-1.h: New test.
* gcc.target/avr/torture/addr-space-2-x.h: New test.
PR target/49868
* gcc.target/avr/torture/addr-space-2.h: New file.
* gcc.target/avr/torture/addr-space-2-g.h: New test.
* gcc.target/avr/torture/addr-space-2-0.h: New test.
* gcc.target/avr/torture/addr-space-2-1.h: New test.
* gcc.target/avr/torture/addr-space-2-x.h: New test.
Backport from 2012-03-12 mainline r185255.
PR target/49868
* gcc.target/avr/torture/addr-space-1.h: New file.
* gcc.target/avr/torture/addr-space-g.h: New test.
* gcc.target/avr/torture/addr-space-0.h: New test.
* gcc.target/avr/torture/addr-space-1.h: New test.
* gcc.target/avr/torture/addr-space-x.h: New test.
PR target/49868
* gcc.target/avr/torture/addr-space-1.h: New file.
* gcc.target/avr/torture/addr-space-g.h: New test.
* gcc.target/avr/torture/addr-space-0.h: New test.
* gcc.target/avr/torture/addr-space-1.h: New test.
* gcc.target/avr/torture/addr-space-x.h: New test.
2012-03-22 Jakub Jelinek <jakub@redhat.com>
@ -41,7 +46,7 @@
* g++.dg/cpp0x/udlit-args2.C: New test.
2012-03-13 Jakub Jelinek <jakub@redhat.com>
PR c/52577
* gcc.dg/Wunused-var-3.c: New test.

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