blob: 5dbd068108ac5a93f2bdd7ff92c60bf7f3ac4edf [file] [log] [blame]
! { dg-do run }
!
! Test the fix for PR64324 in which deferred length user ops
! were being mistaken as assumed length and so rejected.
!
! Contributed by Ian Harvey <ian_harvey@bigpond.com>
!
MODULE m
IMPLICIT NONE
INTERFACE OPERATOR(.ToString.)
MODULE PROCEDURE tostring
END INTERFACE OPERATOR(.ToString.)
CONTAINS
FUNCTION tostring(arg)
INTEGER, INTENT(IN) :: arg
CHARACTER(:), ALLOCATABLE :: tostring
allocate (character(5) :: tostring)
write (tostring, "(I5)") arg
END FUNCTION tostring
END MODULE m
use m
character(:), allocatable :: str
integer :: i = 999
str = .ToString. i
if (str .ne. " 999") STOP 1
end