Fortran/gfortran/regression/interface_53.f90 - llvm-test-suite - Git at Google

 ! { dg-do compile }
 ! PR 118845 - reduced from a segfault in Lapack.
 SUBROUTINE SDRVES(  RESULT )
   external SSLECT
   CALL SGEES( SSLECT )
   CALL SGEES( SSLECT )
   RESULT = SSLECT( 1, 2 )
 END
	! { dg-do compile }
	! PR 118845 - reduced from a segfault in Lapack.
	SUBROUTINE SDRVES( RESULT )
	external SSLECT
	CALL SGEES( SSLECT )
	CALL SGEES( SSLECT )
	RESULT = SSLECT( 1, 2 )
	END