root / synthbench / euroben-dm / mod2a / .svn / text-base / ddummy.f.svn-base @ 0:839f52ef7657
History | View | Annotate | Download (401 Bytes)
| 1 |
Subroutine ddummy(a, iconst) |
|---|---|
| 2 |
Use numerics |
| 3 |
Integer :: iconst |
| 4 |
Real(l_) :: a(*) |
| 5 |
! --------------------------------------------------------------------- |
| 6 |
! --- Routine to prevent unwanted optimization by the compiler. |
| 7 |
|
| 8 |
a(1) = a(1) + iconst |
| 9 |
a(1) = a(1) - iconst |
| 10 |
! --------------------------------------------------------------------- |
| 11 |
End Subroutine ddummy |