This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/50981] [4.4/4.5/4.6 Regression] Wrong-code for scalarizing ELEMENTAL call with absent OPTIONAL argument
- From: "mikael at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Fri, 20 Jan 2012 00:21:44 +0000
- Subject: [Bug fortran/50981] [4.4/4.5/4.6 Regression] Wrong-code for scalarizing ELEMENTAL call with absent OPTIONAL argument
- Auto-submitted: auto-generated
- References: <bug-50981-4@http.gcc.gnu.org/bugzilla/>
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50981
Mikael Morin <mikael at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Attachment #26296|0 |1
is obsolete| |
--- Comment #22 from Mikael Morin <mikael at gcc dot gnu.org> 2012-01-20 00:21:44 UTC ---
Created attachment 26386
--> http://gcc.gnu.org/bugzilla/attachment.cgi?id=26386
Updated patch
Updated patch.
This passes the full comment #13 test fixed as follows:
--- comment_13.f90 2012-01-20 01:04:29.000000000 +0100
+++ comment_13_fixed2.f90 2012-01-20 01:13:28.000000000 +0100
@@ -148,7 +148,7 @@
call sub_t (s, cp, .true.)
call sub_t (v, cp, .true.)
!print *, s, v
-if (s /= 5*2) call abort() ! << FAIL
+if (s /= 7*2) call abort() ! << FAIL
if (any (v /= [7*2, 7*2])) call abort() ! << FAIL
! ARRAY COMPONENTS: Non alloc/assoc
@@ -196,7 +196,7 @@
call sub_t (v, tpa, .true.)
!print *, v
-if (any (v /= [55, 555*2])) call abort() ! <<< FAIL
+if (any (v /= [55*2, 555*2])) call abort() ! <<< FAIL
call sub_t (v, caa, .true.)
@@ -205,7 +205,7 @@
call sub_t (v, cpa, .true.)
!print *, v
-if (any (v /= [77, 777*2])) call abort() ! <<< FAIL
+if (any (v /= [77*2, 777*2])) call abort() ! <<< FAIL
contains