Test 0619_0175.f90 appears to read from uninitialized memory

[ashermancinelli]

It looks like a is used before initialization:

integer a(size([(kk,kk=1,k)]))
allocate(p3)
if (allocated(v3%y2))print *,103
if (allocated(p3%y2))print *,104
if (v3%y1/=0)print *,109
if (p3%y1/=0)print *,110
if (v3%y3/=0)print *,111
if (p3%y3/=0)print *,112
if (any(a/=0))print *,113 !<<<<<<<<<<<<<
a=999

CC @eugeneepshteyn

[eugeneepshteyn]

Also, in the same test, the instantiations of type x3 don't have its fields y1 and y3 initialized, but it looks like the test assumes that these fields should be 0 by default.