------- Comment #6 from kargl at gcc dot gnu dot org  2010-07-27 06:11 -------
Here's an even shorter testcase.

MODULE FunctionTypes

  IMPLICIT NONE

  integer, parameter :: OpconNameLength = 4

  TYPE, PUBLIC :: TTermDefinition
    CHARACTER (OpconNameLength) :: termName(2)    
  END TYPE TTermDefinition

  TYPE (TTermDefinition), PARAMETER :: e = TTermDefinition ([" ", " "])

end module FunctionTypes


-- 


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

Reply via email to