Estou tentando verificar se existe um diretório usando o Fortan90. Em vários sites eu encontrei:

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

Contudo,inquire retornaFalse se o diretório existe ou não e se eu executar esse código duas vezes, recebo uma mensagem de erro

não pode criar dir, o arquivo já existe

Se eu usar:

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

com um teste de arquivo existente,inquire retornatrue.

Como posso verificar a existência de um diretório? Estou usando o ubuntu 11.04 e o compilador ifor