anchor.diff:      fStatus = status
     else
       fStatus = "unknown"
  +  end if
  +
  +  if(present(access)) then
  +    fAccess = access
  +  else
  +    fAccess = "sequential"
     end if
   
     if(len_trim(file) > 64) then
  
positive.code:     if(fRecl > 0) then
        if(fFio) then
          open(unit,file=fFileName,form="formatted",status=fStatus,iostat=ioStat,&
            action=fAction,position=fPosition,round="nearest",recl=fRecl,err=10)
        else
          open(unit,file=fFileName,form="formatted",status=fStatus,iostat=ioStat,&
            action=fAction,position=fPosition,recl=fRecl,err=10)
        end if
      else
        if(fFio) then
          open(unit,file=fFileName,form="formatted",status=fStatus,iostat=ioStat,&
            action=fAction,position=fPosition,round="nearest",err=10)
        else
          open(unit,file=fFileName,form="formatted",status=fStatus,iostat=ioStat,&
            action=fAction,position=fPosition,err=10)
        end if
      end if
    else
      open(unit,file=fFileName,form="unformatted",status=fStatus,iostat=ioStat,&
        action=fAction,position=fPosition,err=10)
    endif
  
    if(ioStat /= 0) then
  
negative.code: !   - status    :: Optional: File status. Defaults to unknown
  !   - recl      :: Optional: Record length. Is only used for nagfor
  ! ================================================================================================ !
  subroutine f_open(unit,file,formatted,mode,err,status,access,recl)
  
    use, intrinsic :: iso_fortran_env, only : error_unit
  
  