[Bug fortran/45748] [4.5/4.6 Regression] -fimplicit-none failures when using intrinsic MAX

2010-10-09 Thread janus at gcc dot gnu.org 
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45748

--- Comment #7 from janus at gcc dot gnu.org 2010-10-09 13:41:16 UTC ---
Author: janus
Date: Sat Oct  9 13:41:12 2010
New Revision: 165223

URL: http://gcc.gnu.org/viewcvs?root=gccview=revrev=165223
Log:
2010-10-09  Janus Weil  ja...@gcc.gnu.org

PR fortran/45748
* resolve.c (resolve_formal_arglist): Avoid setting default type for
formal arguments of intrinsic procedures.


2010-10-09  Janus Weil  ja...@gcc.gnu.org

PR fortran/45748
* gfortran.dg/intrinsic_6.f90: New.

Added:
branches/gcc-4_5-branch/gcc/testsuite/gfortran.dg/intrinsic_6.f90
Modified:
branches/gcc-4_5-branch/gcc/fortran/ChangeLog
branches/gcc-4_5-branch/gcc/fortran/resolve.c
branches/gcc-4_5-branch/gcc/testsuite/ChangeLog

[Bug fortran/45748] [4.5/4.6 Regression] -fimplicit-none failures when using intrinsic MAX

2010-10-09 Thread janus at gcc dot gnu.org 
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45748

janus at gcc dot gnu.org changed:

   What|Removed |Added

 Status|ASSIGNED|RESOLVED
 Resolution||FIXED

--- Comment #8 from janus at gcc dot gnu.org 2010-10-09 13:51:11 UTC ---
Fixed on trunk and 4.5. Closing.

[Bug fortran/45748] [4.5/4.6 Regression] -fimplicit-none failures when using intrinsic MAX

2010-10-02 Thread janus at gcc dot gnu.org 
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45748

janus at gcc dot gnu.org changed:

   What|Removed |Added

 Status|NEW |ASSIGNED
 CC||janus at gcc dot gnu.org
 AssignedTo|unassigned at gcc dot   |janus at gcc dot gnu.org
   |gnu.org |

--- Comment #5 from janus at gcc dot gnu.org 2010-10-02 08:06:53 UTC ---
The following (pretty obvious) patch fixes it:

Index: gcc/fortran/resolve.c
===
--- gcc/fortran/resolve.c(revision 164899)
+++ gcc/fortran/resolve.c(working copy)
@@ -297,11 +297,9 @@ resolve_formal_arglist (gfc_symbol *proc)
   continue;
 }

-  if (sym-ts.type == BT_UNKNOWN)
-{
-  if (!sym-attr.function || sym-result == sym)
-gfc_set_default_type (sym, 1, sym-ns);
-}
+  if (sym-ts.type == BT_UNKNOWN  !proc-attr.intrinsic
+   (!sym-attr.function || sym-result == sym))
+gfc_set_default_type (sym, 1, sym-ns);

   gfc_resolve_array_spec (sym-as, 0);

[Bug fortran/45748] [4.5/4.6 Regression] -fimplicit-none failures when using intrinsic MAX

2010-10-02 Thread janus at gcc dot gnu.org 
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45748

--- Comment #6 from janus at gcc dot gnu.org 2010-10-02 10:38:45 UTC ---
Author: janus
Date: Sat Oct  2 10:38:42 2010
New Revision: 164901

URL: http://gcc.gnu.org/viewcvs?root=gccview=revrev=164901
Log:
2010-10-02  Janus Weil  ja...@gcc.gnu.org

PR fortran/45748
* resolve.c (resolve_formal_arglist): Avoid setting default type for
formal arguments of intrinsic procedures.

2010-10-02  Janus Weil  ja...@gcc.gnu.org

PR fortran/45748
* gfortran.dg/intrinsic_6.f90: New.

Added:
trunk/gcc/testsuite/gfortran.dg/intrinsic_6.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/resolve.c
trunk/gcc/testsuite/ChangeLog

[Bug fortran/45748] [4.5/4.6 Regression] -fimplicit-none failures when using intrinsic MAX

2010-09-30 Thread rguenth at gcc dot gnu.org 
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45748

Richard Guenther rguenth at gcc dot gnu.org changed:

   What|Removed |Added

   Priority|P3  |P4
  Known to fail||

[Bug fortran/45748] [4.5/4.6 Regression] -fimplicit-none failures when using intrinsic MAX

2010-09-22 Thread burnus at gcc dot gnu dot org 


--- Comment #4 from burnus at gcc dot gnu dot org  2010-09-22 20:22 ---
As you might have guessed, the error is with regards to the arguments of MAX
which are A1 and A2.

The arguments are defined as BT_UNKNOWN, cf. in intrinsics.c:

  add_sym_1m (max, GFC_ISYM_MAX, CLASS_ELEMENTAL, ACTUAL_NO,
  BT_UNKNOWN, 0, GFC_STD_F77,
  gfc_check_min_max, gfc_simplify_max, gfc_resolve_max,
  a1, BT_UNKNOWN, dr, REQUIRED, a2, BT_UNKNOWN, dr, REQUIRED);

The backtrace shows:

#0  gfc_set_default_type (sym=0x144e6b0, error_flag=1, ns=value optimized
out)
at fortran/symbol.c:263
#1  0x005328d7 in resolve_formal_arglist (proc=0x144d1f0)
at fortran/resolve.c:303


-- 

burnus at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|UNCONFIRMED |NEW
 Ever Confirmed|0   |1
   Keywords||rejects-valid
  Known to fail||4.5.0 4.6.0
  Known to work||4.4.0
   Last reconfirmed|-00-00 00:00:00 |2010-09-22 20:22:16
   date||
Summary|-fimplicit-none strange |[4.5/4.6 Regression] -
   |behaviour   |fimplicit-none failures when
   ||using intrinsic MAX
   Target Milestone|--- |4.5.2


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45748