Do i=1,10
If (i**2+28==i*11) Then
Print *,'True at',i
End If
End Do
End Program
Execution ResultsTrue at 4
True at 7
<Example Program>
| Program eq_example Do i=1,10 If (i**2+28==i*11) Then Print *,'True at',i End If End Do End Program |
|
| Execution Results True at 4 True at 7 |
|