[Bug fortran/23114] New: Bad interaction between character, dimension and interface

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

$ cat input_cp2k.f90 
MODULE string_utilities
  PUBLIC :: s2a
  INTERFACE s2a
    MODULE PROCEDURE s2a_1
  END INTERFACE 
CONTAINS
PURE FUNCTION s2a_1(s1) RESULT(a)
  character(LEN=1), INTENT(IN) :: s1
  character(LEN=1), DIMENSION(1) :: a
  a(1)=s1
END FUNCTION
END MODULE string_utilities

MODULE input_cp2k
  USE string_utilities
contains
  SUBROUTINE create_linres_section
      print *, s2a("")
  END SUBROUTINE create_linres_section
END MODULE input_cp2k
$ gfortran -c input_cp2k.f90
input_cp2k.f90: In function ?create_linres_section?:
input_cp2k.f90:18: internal compiler error: Segmentation fault

-- 
           Summary: Bad interaction between character, dimension and
                    interface
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23114