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
