[flang-commits] [flang] [flang] Remake example of etime (PR #98722)

[jiajie zhang via flang-commits]

https://github.com/JumpMasterJJ created https://github.com/llvm/llvm-project/pull/98722

This PR remakes the example code for using the `etime` function in Fortran. The previous example code may have an incompatible license, so this PR provides a new version of the example to ensure it is licensed properly.

>From b937b84ce7e99ca5ab336d2e94d4f5243023fe6c Mon Sep 17 00:00:00 2001
From: JumpMasterJJ <1336724109 at qq.com>
Date: Sat, 13 Jul 2024 15:17:56 +0800
Subject: [PATCH] remake example of etime

---
 flang/docs/Intrinsics.md | 32 +++++++++++++++-----------------
 1 file changed, 15 insertions(+), 17 deletions(-)

diff --git a/flang/docs/Intrinsics.md b/flang/docs/Intrinsics.md
index 8853d4d9e1c79..4b5890300a5e0 100644
--- a/flang/docs/Intrinsics.md
+++ b/flang/docs/Intrinsics.md
@@ -949,24 +949,22 @@ This intrinsic is provided in both subroutine and function forms; however, only
 | `TIME`     | The type shall be REAL(4).                                            |
 
 #### Example
-Here is an example usage from [Gfortran ETIME](https://gcc.gnu.org/onlinedocs/gfortran/ETIME.html)
 ```Fortran
-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
-    call ETIME(tarray, result)
-    print *, result
-    print *, tarray(1)
-    print *, tarray(2)
-end program test_etime
+program example_etime
+  implicit none
+  real, dimension(2) :: values
+  real :: time
+  integer :: i
+
+  DO i = 1, 1000000000
+  END DO
+
+  call ETIME(values, time)
+
+  print *, "real  ", time, "s"
+  print *, "user  ", values(1), "s"
+  print *, "sys   ", values(2), "s"
+end program example_etime
 ```
 
 ### Non-Standard Intrinsics: GETCWD