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

re PR fortran/26201 (__convert_i4_i8 written to a module.)

Browse Source 
fortran/
2006-02-19  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/26201
        * intrinsic.c (gfc_convert_type_warn): Call
        gfc_intrinsic_symbol() on the newly created symbol.

testsuite/
2006-02-19  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/26201
        * gfortran.dg/convert_1.f90: New.

From-SVN: r111270
This commit is contained in:
Erik Edelmann 2006-02-19 17:23:07 +00:00
parent 63a7c9ef05
commit 3431818f46
4 changed files with 28 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 @@
2006-02-19 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/26201
* intrinsic.c (gfc_convert_type_warn): Call
gfc_intrinsic_symbol() on the newly created symbol.
2005-02-19 Paul Thomas <pault@gcc.gnu.org>
PR fortran/25054

1
gcc/fortran/intrinsic.c
View File

@ -3428,6 +3428,7 @@ gfc_convert_type_warn (gfc_expr * expr, gfc_typespec * ts, int eflag,
new->symtree->n.sym->attr.elemental = 1;
new->symtree->n.sym->attr.pure = 1;
new->symtree->n.sym->attr.referenced = 1;
gfc_intrinsic_symbol(new->symtree->n.sym);
gfc_commit_symbol (new->symtree->n.sym);
*expr = *new;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2006-02-19 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/26201
* gfortran.dg/convert_1.f90: New.
2005-02-19 Paul Thomas <pault@gcc.gnu.org>
PR fortran/25054

16
gcc/testsuite/gfortran.dg/convert_1.f90 Normal file
View File

@ -0,0 +1,16 @@
! { dg-do compile }
! PR 26201: Check that the __convert_*_* functions are treated as intrinsics
! rather than module functions.
! Testcase contributed by Philippe Schaffnit and François-Xavier Coudert.
MODULE MODULE_A
REAL :: a = 0
END MODULE MODULE_A
MODULE MODULE_B
REAL :: b = 0
END MODULE MODULE_B
USE MODULE_A
USE MODULE_B
a = 0
END