[Bug fortran/94578] Incorrect assignment of RESHAPE() result to a Fortran pointer

[howisjw at hotmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=94578

--- Comment #1 from Jan-Willem Blokland <howisjw at hotmail dot com> ---
Below are the results of the test program. The results of array1d should have
been identical to array2d.

 --- array2d ---
1 1   0.1000000E+01   0.1000000E+01   0.1000000E+01   0.1000000E+00  
0.1000000E+00   0.1000000E+00 T
2 1   0.2000000E+01   0.2000000E+01   0.1000000E+01   0.2000000E+00  
0.2000000E+00   0.1000000E+00 T
3 1   0.3000000E+01   0.3000000E+01   0.1000000E+01   0.3000000E+00  
0.3000000E+00   0.1000000E+00 T
1 2   0.2000000E+01   0.1000000E+01   0.2000000E+01   0.2000000E+00  
0.1000000E+00   0.2000000E+00 T
2 2   0.4000000E+01   0.2000000E+01   0.2000000E+01   0.4000000E+00  
0.2000000E+00   0.2000000E+00 T
3 2   0.6000000E+01   0.3000000E+01   0.2000000E+01   0.6000000E+00  
0.3000000E+00   0.2000000E+00 T
1 3   0.3000000E+01   0.1000000E+01   0.3000000E+01   0.3000000E+00  
0.1000000E+00   0.3000000E+00 T
2 3   0.6000000E+01   0.2000000E+01   0.3000000E+01   0.6000000E+00  
0.2000000E+00   0.3000000E+00 T
3 3   0.9000000E+01   0.3000000E+01   0.3000000E+01   0.9000000E+00  
0.3000000E+00   0.3000000E+00 T
1 4   0.4000000E+01   0.1000000E+01   0.4000000E+01   0.4000000E+00  
0.1000000E+00   0.4000000E+00 T
2 4   0.8000000E+01   0.2000000E+01   0.4000000E+01   0.8000000E+00  
0.2000000E+00   0.4000000E+00 T
3 4   0.1200000E+02   0.3000000E+01   0.4000000E+01   0.1200000E+01  
0.3000000E+00   0.4000000E+00 T
 --- array1d ---
1   0.1000000E+01   0.1000000E+01   0.1000000E+01   0.1000000E+00  
0.1000000E+00   0.1000000E+00 T
2   0.3000000E+01   0.3000000E+01   0.1000000E+01   0.3000000E+00  
0.3000000E+00   0.1000000E+00 T
3   0.4000000E+01   0.2000000E+01   0.2000000E+01   0.4000000E+00  
0.2000000E+00   0.2000000E+00 T
4   0.3000000E+01   0.1000000E+01   0.3000000E+01   0.3000000E+00  
0.1000000E+00   0.3000000E+00 T
5   0.9000000E+01   0.3000000E+01   0.3000000E+01   0.9000000E+00  
0.3000000E+00   0.3000000E+00 T
6   0.8000000E+01   0.2000000E+01   0.4000000E+01   0.8000000E+00  
0.2000000E+00   0.4000000E+00 T
7   0.6930324-309   0.6953253-309   0.6953253-309   0.6930324-309  
0.6930226-309   0.6930324-309 T
8   0.6930324-309   0.3952525-322   0.1096251-314   0.0000000E+00  
0.1712892-316   0.2302373-314 T
9   0.4940656-323   0.0000000E+00   0.4940656-323   0.6930324-309  
0.6930324-309   0.3102445-313 T
*   0.6930324-309   0.6930324-309   0.6930324-309   0.0000000E+00  
0.4940656-323   0.6930324-309 T
*   0.0000000E+00   0.6930324-309   0.4940656-323   0.0000000E+00  
0.4646021-309   0.6930324-309 T
*   0.6930324-309   0.6930324-309   0.4940656-323   0.3575029-316  
0.2964394-322   0.4171992-308 T