blob: 812ae9b266dbb9fd5cb95dff26d6df842513f325 [file] [log] [blame]
! { dg-lto-do link }
! { dg-lto-options {{-flto -g -fPIC -r} {-O -flto -g -fPIC -r}} }
! { dg-extra-ld-options "-flinker-output=nolto-rel" }
FUNCTION makenumberstring(x)
IMPLICIT NONE
REAL, INTENT(IN) :: x
CHARACTER(len=20) :: makenumberstring
INTEGER :: xx
xx = x**2 ! << ICE
makenumberstring = ''
END FUNCTION