[Bug fortran/102689] Segfault with RESHAPE of CLASS as actual argument

[pault at gcc dot gnu.org]

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

--- Comment #2 from Paul Thomas <pault at gcc dot gnu.org> ---
Created attachment 56730
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=56730&action=edit
Another failing testcase

With the attached, we should get:
[pault@pc30 pr87477]$ rm ./a.out;ifort ~/prs/pr102689/pr1*.f90 ;./a.out
 type is 's' at line            0
 type is 's' at line            2
 type is 's' at line            3
 type is 's' at line            4
 type is 's' at line            5

whereas gfortran gives
 type is 's' at line            0
 type is 't' at line            2
line  2 1275 should be 5050
 type is 't' at line            3
line  3 1275 should be 5050
 type is 't' at line            4
line  4 1275 should be 5050
 type is 't' at line            5
line  5 1275 should be 5050