Получение ошибки сегментации при открытии файла, который уже существует

Question

Я пытался открыть файл, который уже существует:

    program writeeven
    implicit none
    logical :: alive
    inquire(file='even.txt', exist=alive)
   if (alive) then
      print *, 'file is existed'
      open(12, file='even.txt')
   else
      print *, 'file is not existed'
   end if

   end program writeeven

Программа выдала следующее сообщение:

Program received signal SIGSEGV: Segmentation fault - invalid memory reference.

Как открыть существующий файл и прочитать сообщение?