[Bug fortran/77867] New: Internal compiler error, array in write format

[pascal22p at parois dot net]

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

            Bug ID: 77867
           Summary: Internal compiler error, array in write format
           Product: gcc
           Version: 6.1.0
            Status: UNCONFIRMED
          Severity: minor
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: pascal22p at parois dot net
  Target Milestone: ---

The program below gives an internal compiler error:

program compilererror
implicit none
character(len=3), dimension(1), parameter :: CFN=(/'(a)'/)

write(*,cfn) 

end program


$ gfortran61 -Wall -Wextra -fno-strict-aliasing -fwrapv  error.f90 
error.f90:5:0:

 write(*,cfn)

internal compiler error: in gfc_conv_array_constructor_expr, at
fortran/trans-expr.c:6634
0x6acf8c gfc_conv_array_constructor_expr
        ../../gcc/fortran/trans-expr.c:6634
0x6acf8c gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:7582
0x6ca494 set_string
        ../../gcc/fortran/trans-io.c:824
0x6cbe4b build_dt
        ../../gcc/fortran/trans-io.c:1830
0x67d267 trans_code
        ../../gcc/fortran/trans.c:1860
0x6a08cc gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6154
0x639510 translate_all_program_units
        ../../gcc/fortran/parse.c:5613
0x639510 gfc_parse_file()
        ../../gcc/fortran/parse.c:5819
0x67a6a5 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:201
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <http://gcc.gnu.org/bugs.html> for instructions.