[Bug fortran/53691] [4.7/4.8 Regression] ICE in LAPACK 3.4.1 cgbrfsx.f

[dominiq at lps dot ens.fr]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=53691

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2012-06-15 
21:23:42 UTC ---
Reduced test case

       SUBROUTINE CGBRFSX(N, RWORK)
       INTEGER N
       REAL RWORK(*)
       REAL ZERO
       PARAMETER (ZERO = 0.0E+0)
       call foo(TRANSFER (RWORK(1:2*N), (/ (ZERO, ZERO) /), N))
       end

It yields a segmentation fault when compiled with -Wsurprising.