Estoy tratando de verificar que exista un directorio usando Fortan90. En varios sitios encontré:

logical :: dir_e
inquire(file='./docs/.', exist=dir_e)

if ( dir_e ) then
  write(*,*) "dir exists!"
else
  ! workaround: it calls an extern program...
  call system('mkdir docs')
end if

Sin embargo,inquire devolucionesFalse si el directorio existe o no y si ejecuto este código dos veces, recibo un mensaje de error

cannot make dir, el archivo ya existe

Si uso:

inquire(file='./docs/test', exist=dir_e)

con una prueba de archivo existente,inquire devolucionestrue.

¿Cómo puedo verificar la existencia de un directorio? Estoy usando ubuntu 11.04 y el compilador ifort.