[Bug fortran/114874] [14/15 Regression] ICE with select type, type is (character(*)), and substring

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #2 from anlauf at gcc dot gnu.org ---
The dump-fortran-original shows the following difference between 13 and 14:

@@ -58,7 +58,7 @@
   code:
   ASSIGN p:c 'abc'

-  BLOCK 
+  SELECT TYPE 
     symtree: '__tmp_CHARACTER_0_1'|| symbol: '__tmp_CHARACTER_0_1' 
       type spec : (CHARACTER () 1)
       attributes: (VARIABLE  SELECT-TYPE-TEMPORARY ASSOCIATE-VAR)
@@ -66,7 +66,7 @@
       type spec : (UNKNOWN 0)
       attributes: (LABEL )

-    SELECT TYPE _loc[((p:c % _vptr))]
+    SELECT CASE _loc[((p:c % _vptr))]
     CASE (_loc[((p:__vtab_CHARACTER_1_))] 85893463) 

     ASSOCIATE   = p:c % _data
@@ -74,11 +74,11 @@
         type spec : (UNKNOWN 0)
         attributes: (LABEL )
       WRITE UNIT=6 FMT=-1
-      TRANSFER block@1:__tmp_CHARACTER_0_1(2:2)
+      TRANSFER block@1:__tmp_CHARACTER_0_1(UNKNOWN)
       DT_END
     END ASSOCIATE 
     END SELECT
-  END BLOCK 
+  END SELECT TYPE 

 CONTAINS