<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/84205>84205</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [flang] Extension: etime intrinsic
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          DavidTruby
      </td>
    </tr>
</table>

<pre>
    The etime intrinsic is an extension provided by some other Fortran compilers (for example [gfortran](https://gcc.gnu.org/onlinedocs/gfortran/ETIME.html)). GFortran provides this intrinsic as both a subroutine and a function. 
The function version of this extension is used by OpenRadioss.
Syntax:
```
CALL ETIME(VALUES, TIME)
TIME = ETIME(VALUES)
```
Arguments:
```
VALUES  The type shall be REAL(4), DIMENSION(2).
TIME    The type shall be REAL(4).
```
Return value:
    Elapsed time in seconds since the start of program execution.

Example:
```
program test_etime
    integer(8) :: i, j
    real, dimension(2) :: tarray
    real :: result
    call ETIME(tarray, result)
    print *, result
    print *, tarray(1)
 print *, tarray(2)   
    do i=1,100000000    ! Just a delay
        j = i * i - i
    end do
    ETIME(tarray, result)
    print *, result
    print *, tarray(1)
    print *, tarray(2)
end program test_etime
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy0VF1vqzgQ_TXOy6iIGBLggYfchKy6au-V2u6-rgwewJWxkT-i5t-vTKB0u632aVEUhOfM8Zkzo2HWik4hlmT3g-xOG-Zdr015YhfBX4yvr5ta82v50iOgEwOCUM4IZUUDwgJTgG8OlRVawWj0RXDkUF_B6gFBux4NnLVxhilo9DAKicYCoXmrDeAbG0aJQHY_uvYGIrsToXnv3GhJciD0TOi5a5qoUz7SpiP0rJUUCrlubAgtafRcvdw_VlHvBkloQWgRwW_LxbMuC64X9oN-ZqHWrgcG1tdGeycUAlMcGLReNU5oFQGJTyQ-hPKXM7igmerV7Y1xdUBY8PZmwK8R1RPjQlsb3Tier8qxt1DW9En28fybPo-HhweYiiA0__Pw8Ef1TOgRbgfFrOL-sQKSnP6FK76kPJjOD6ic_e7OOT0uQnnuOiLYnkkJNcJTdXggNE8nM49wun-sfj7f__pJaE6Du6ug_0qPvrz6CZ03Ci5MenyXBwBQSTYGC-dZA4uNVtyCFapBcD2Cdcy4YP5odGfYAPiGjZ-6NV81_Ve36fqu9iXZoXV_TZO9ahDKYYeG0DwntIBAkRxABCNeV5RBJsMRF8Ot_bM3C94xY9j1n_glZtB66dZYE3xbujon0uMCW_obkKMRygGhhw_xr4MLTb5dCb4GTKoBVh6uQZDktCX0uI3nJ5wTuoXfvXXAgKP8WFx4XqfZFIEeBNyBWMOoOHD9ocv_f6nfYug7Jqj6bg7ex2XDy4QXScE2WG6zuMjSfZZlm75MOdI2ThOe4x5TxlibFTzjyFq-53yLG1HSmKZxEu-3WVIkWdQmxT5L0xybelcXcUrSGAcmZCTlZQj7bSOs9VjmKY13G8lqlHbZy6YMoLvad5aksRTW2TXNCSenDd5KpjqyO0G17KQwbZ8W98YbWX7ascL1vo4aPRB6DrTz6240-hUbR-h5khaW7qTu7wAAAP__tEPX0g">