1! { dg-options "-O2 " } 2 3PROGRAM TEST_FPU 4CHARACTER (LEN=36) :: invert_id(1) = & 5 (/ 'Test1 - Gauss 2000 (101x101) inverts'/) 6END PROGRAM TEST_FPU 7 8SUBROUTINE Gauss (a,n) 9INTEGER, PARAMETER :: RK8 = SELECTED_REAL_KIND(15, 300) 10REAL(RK8) :: a(n,n) 11INTEGER :: ipvt(n) 12a(:,ipvt) = b 13END SUBROUTINE Gauss 14