https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66102
Mikael Morin <mikael at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Attachment #35518|0 |1
is obsolete| |
--- Comment #3 from Mikael Morin <mikael at gcc dot gnu.org> ---
Created attachment 35563
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35563&action=edit
Fixed test
The initial test was bogus, because [b, e] and [a, e] are not conformable.
Fixed as follows
--- comment_0.f90 2015-05-16 21:46:41.932079904 +0200
+++ realloc_on_assign_23_fixed.f90 2015-05-16 22:26:57.001112948 +0200
@@ -29,8 +29,8 @@
if (any([(b(i)%i, i=1,size(b))] /= [(i, i=1,size(b))])) call abort
contains
subroutine foo
- a = [a, e]
b = first_arg([b, e], [a, e])
+ a = [a, e]
end subroutine
elemental function first_arg(arg1, arg2)
type(t), intent(in) :: arg1, arg2
