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