[Bug fortran/115070] [13/14/15 Regression] ICE using IEEE_ARITHMETIC in a derived type method with class, intent(out)

["fxcoudert at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

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

--- Comment #6 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> ---
So the var_decl in question is fpstate.0:

 <var_decl 0x1034e1200 fpstate.0
    type <array_type 0x1036c4b28
        type <integer_type 0x1035003f0 c_char public unsigned QI
            size <integer_cst 0x1034bce70 constant 8>
            unit-size <integer_cst 0x1034bce88 constant 1>
            align:8 warn_if_not_align:0 symtab:0 alias-set -1 canonical-type
0x1035003f0 precision:8 min <integer_cst 0x1034bced0 0> max <integer_cst
0x1034bceb8 255>
            pointer_to_this <pointer_type 0x103503bb8>>
        BLK
        size <integer_cst 0x103546988 constant 264>
        unit-size <integer_cst 0x103546aa8 constant 33>
        align:8 warn_if_not_align:0 symtab:0 alias-set -1 canonical-type
0x1036c4b28
        domain <integer_type 0x1036c4a80 type <integer_type 0x1035007e0>
            DI
            size <integer_cst 0x1034bcd80 constant 64>
            unit-size <integer_cst 0x1034bcd98 constant 8>
            align:64 warn_if_not_align:0 symtab:0 alias-set -1 canonical-type
0x1036c4a80 precision:64 min <integer_cst 0x1034bd050 0> max <integer_cst
0x103546a60 32>>
        pointer_to_this <pointer_type 0x1036c4bd0>>
    addressable used ignored BLK s.f90:10:17 size <integer_cst 0x103546988 264>
unit-size <integer_cst 0x103546aa8 33>
    align:8 warn_if_not_align:0 context <function_decl 0x1036c8100 my_sub>>

And if I look at the tree dump, it seems the variable is indeed not created
correctly:

__attribute__((fn spec (". w ")))
void my_sub (struct __class_my_mod_My_type_t & restrict obs)
{
  try
    {
      _gfortran_ieee_procedure_entry ((void *) &fpstate.0);

see the missing declaration for fpstate.0. But it is created by
gfc_create_var(), like so many other local variables in the front-end, so I
have no idea why it's disappearing.