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