! { dg-do compile }
|
! { dg-do compile }
|
! Tests patch for PR29373, in which the implicit character
|
! Tests patch for PR29373, in which the implicit character
|
! statement messes up the function declaration because the
|
! statement messes up the function declaration because the
|
! requisite functions in decl.c were told nothing about
|
! requisite functions in decl.c were told nothing about
|
! implicit types.
|
! implicit types.
|
!
|
!
|
! Contributed by Tobias Schlueter
|
! Contributed by Tobias Schlueter
|
!
|
!
|
implicit character*32 (a-z)
|
implicit character*32 (a-z)
|
CHARACTER(len=255), DIMENSION(1,2) :: a
|
CHARACTER(len=255), DIMENSION(1,2) :: a
|
|
|
! Reporters original, which triggers another error:
|
! Reporters original, which triggers another error:
|
! gfc_todo: Not Implemented: complex character array
|
! gfc_todo: Not Implemented: complex character array
|
! constructors.=> PR29431
|
! constructors.=> PR29431
|
! a = reshape((/ to_string(1.0) /), (/ 1, 2 /))
|
! a = reshape((/ to_string(1.0) /), (/ 1, 2 /))
|
|
|
a = to_string(1.0)
|
a = to_string(1.0)
|
print *, a
|
print *, a
|
CONTAINS
|
CONTAINS
|
CHARACTER*(32) FUNCTION to_string(x)
|
CHARACTER*(32) FUNCTION to_string(x)
|
REAL, INTENT(in) :: x
|
REAL, INTENT(in) :: x
|
WRITE(to_string, FMT="(F6.3)") x
|
WRITE(to_string, FMT="(F6.3)") x
|
END FUNCTION
|
END FUNCTION
|
END PROGRAM
|
END PROGRAM
|
|
|