＜ROUND= Example Program＞

Program round_example
  Call test( [ 1.25, 1.75, -1.25, -1.75 ] )
Contains
  Subroutine test(a)
    Real,Intent(In) :: a(:)
    Write (*,1,Round='Compatible') 'Compatible', a
1   Format(1X,'ROUND="',A,'"',T25,4F6.1)
    Write (*,1,Round='Down') 'Down', a
    Write (*,1,Round='Nearest') 'Nearest', a
    Write (*,1,Round='Up') 'Up', a
    Write (*,1,Round='Zero') 'Zero', a
  End Subroutine
End Program

---

■ Execution Results

 ROUND="Compatible"        1.3   1.8  -1.3  -1.8
 ROUND="Down"              1.2   1.7  -1.3  -1.8
 ROUND="Nearest"           1.2   1.8  -1.2  -1.8
 ROUND="Up"                1.3   1.8  -1.2  -1.7
 ROUND="Zero"              1.2   1.7  -1.2  -1.7