blob: a882da042cd9aed8ab44d0dee9bfa75602b0057c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-lto-do link }
! { dg-lto-options {{-flto -g -fPIC -r -nostdlib} {-O -flto -g -fPIC -r -nostdlib}} }
FUNCTION makenumberstring(x)
IMPLICIT NONE
REAL, INTENT(IN) :: x
CHARACTER(len=20) :: makenumberstring
INTEGER :: xx
xx = x**2 ! << ICE
makenumberstring = ''
END FUNCTION
|