[petsc-users] Compilation error with ifort: invalid return statement in main

[Praveen C]

Dear all

In the main program, if I have a line like

   call PetscInitialize('param.in', ierr); CHKERRQ(ierr)

compiling with mpifort gives

main.f95(17): error #6353: A RETURN statement is invalid in the main program.
   call PetscInitialize('param.in', ierr); if (ierr .ne. 0) then ; call PetscErrorF(ierr); return; endif
—————————————————————————————————————————————^

It compiles fine with gfortran. What can I do for the ifort case ?

Thanks
praveen