[Bug fortran/49802] [F03] [F08] Wrong code with VALUE, VALUE with arrays/DIMENSION

[gscfq@t-online.de]

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

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |gscfq@t-online.de

--- Comment #10 from G. Steinmetz <gscfq@t-online.de> ---

Update from comment 5 (combination of value and optional) :


$ cat z1.f90
subroutine s(x)
   character, value, optional :: x
   print *, present(x)
end


$ gfortran-9-20181111 -c z1.f90
z1.f90:3:0:

    3 |    print *, present(x)
      |
internal compiler error: in fold_convert_loc, at fold-const.c:2548
0x8a9bb3 fold_convert_loc(unsigned int, tree_node*, tree_node*)
        ../../gcc/fold-const.c:2548
0x6eafd6 gfc_conv_expr_present(gfc_symbol*)
        ../../gcc/fortran/trans-expr.c:1724
0x7155e9 gfc_conv_intrinsic_present
        ../../gcc/fortran/trans-intrinsic.c:3493
0x7155e9 gfc_conv_intrinsic_function(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-intrinsic.c:9726
0x6fa2b4 gfc_conv_function_expr
        ../../gcc/fortran/trans-expr.c:6905
0x6ee90a gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8039
0x6f43b5 gfc_conv_expr_reference(gfc_se*, gfc_expr*, bool)
        ../../gcc/fortran/trans-expr.c:8184
0x71b007 gfc_trans_transfer(gfc_code*)
        ../../gcc/fortran/trans-io.c:2584
0x6c0067 trans_code
        ../../gcc/fortran/trans.c:2038
0x718afe build_dt
        ../../gcc/fortran/trans-io.c:2026
0x6c0047 trans_code
        ../../gcc/fortran/trans.c:2010
0x6e7674 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6509
0x6744d6 translate_all_program_units
        ../../gcc/fortran/parse.c:6125
0x6744d6 gfc_parse_file()
        ../../gcc/fortran/parse.c:6328
0x6bc89f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204