| ! { dg-options "-O2 -floop-block" } | |
| PROGRAM TEST_FPU | |
| CHARACTER (LEN=36) :: invert_id(1) = & | |
| (/ 'Test1 - Gauss 2000 (101x101) inverts'/) | |
| END PROGRAM TEST_FPU | |
| SUBROUTINE Gauss (a,n) | |
| INTEGER, PARAMETER :: RK8 = SELECTED_REAL_KIND(15, 300) | |
| REAL(RK8) :: a(n,n) | |
| INTEGER :: ipvt(n) | |
| a(:,ipvt) = b | |
| END SUBROUTINE Gauss |