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

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5486c8eb78acd58a2d38645dff02b7f80cdb9423..7ef520553eda4510e6acf61899ad53774436decc 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index cc63a5f66fc3a0ced9392af6b0b01c0b6316132d..56f92a2dca33861d7d2b6b831c6464711a6e3af1 100644 (file)
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -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;

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6cca5da64c6dca4a63451fac692cf33291762d52..c830c02761f8666e51dcbd2a634fa5e3b9ce6af5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gfortran.dg/convert_1.f90 b/gcc/testsuite/gfortran.dg/convert_1.f90
new file mode 100644 (file)
index 0000000..0723cd0
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/convert_1.f90
@@ -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