Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=legacy" }

!

! Tests patch for PR29373, in which the implicit character

! statement messes up the function declaration because the

! requisite functions in decl.c were told nothing about

! implicit types.

!

! Contributed by Tobias Schlueter  

!

  implicit character*32 (a-z)

  CHARACTER(len=255), DIMENSION(1,2)  :: a

! Reporters original, which triggers another error:

! gfc_todo: Not Implemented: complex character array

! constructors.=> PR29431

!  a = reshape((/ to_string(1.0) /), (/ 1, 2 /))

  a = to_string(1.0)

  print *, a

  CONTAINS

    CHARACTER*(32) FUNCTION to_string(x)

      REAL, INTENT(in) :: x

      WRITE(to_string, FMT="(F6.3)") x

    END FUNCTION

END PROGRAM