program basic_para_region
!$ use OMP_LIB
	implicit none
	logical :: inpara

!$OMP PARALLEL
!$ inpara = OMP_IN_PARALLEL ()
	print *, " Im a in PR : ", inpara
!$OMP END PARALLEL

!$ inpara = OMP_IN_PARALLEL ()
	print *, " Im a in PR : ", inpara

end program basic_para_region