[Patch, fortran] PR30084 - segmentation falut when compiling certain code

[Paul Thomas]

Erratum:
> Index: gcc/testsuite/gfortran.dg/nested_modules_6.f90
> ===================================================================
> *** gcc/testsuite/gfortran.dg/nested_modules_6.f90	(revision 0)
> --- gcc/testsuite/gfortran.dg/nested_modules_6.f90	(revision 0)
>
>   
...............
> +   real :: x(2, 2) = reshape ([1.,2.,3.,4.], [2,2])
>   
should have ! { dg-warning "nonstandard" }
> +   print *, s_last
> +   print *, diag (x)
> + end
> + ! { dg-final { cleanup-modules "tao_random_numbers linalg vamp_rest" } }
>   
Sorry about that - I had f95 constructors right up to the last moment.

Paul