fork download
copy 
  1. program blah
  2. implicit none
  3. integer :: i,n
  4. n=10
  5. !$OMP PARALLEL DO DEFAULT(NONE) PRIVATE(i) SHARED(n)
  6. do i=1,n
  7. 	print*, i
  8. end do
  9. !$OMP END PARALLEL DO
  10. end program blah
Success #stdin #stdout 0.01s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
           1
           2
           3
           4
           5
           6
           7
           8
           9
          10
https://ideone.com/tKoVHY
language:
Fortran (gfortran 8.3)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!