A test case would be nice here.

It will work on every openmp testcase
If there is some new testcase needed then i will add it

A test case would be nice here.

For time being we can consider this as an example

program openmp_36
integer :: i
do concurrent ( i =1:5 )
    print *, i
end do 
end program

A test case would be nice here.

For time being we can consider this as an example

program openmp_36
integer :: i
do concurrent ( i =1:5 )
    print *, i
end do 
end program

I see, that's a good start, once you get any of the program present in integration_tests/CMakeLists.txt (pertaining to openmp), you can probably just add a label fortran to it (those can act as a good test case for this).

I moved this PR to draft mode until then.

Let's add a test which this PR fixes, a minimal, close this and do improvements in next PR. Let's not carry longer PRs.

This fix now generates dump passes which uses omp_lib

program openmp_40
    use omp_lib
    integer :: i
    do i = 1, 5
        print *, i
    end do 
end program

So i can add this test if required and then we will move on to merge it and then I will fix for the DoConcurrentLoop in next PR

The error is:

CMakeFiles/openmp_40.dir/openmp_40.f90.o.tmp.f90:95:20:

   95 |         type(c_ptr), value :: data
      |                    1
Error: Derived type ‘c_ptr’ at (1) is being used before it is defined

This error comes from GFortran, since the generated code is incorrect. One must insert "import :: c_ptr", or "use iso_c_binding, only: c_ptr" in the interfaces.

Let's get into the habit of creating a nice set of commits. Or squash it.