Невозможно распечатать выделенное состояние для размещения внутри производного типа

Question

Я хотел бы знать, почему этот код возвращает ошибку в последней печати. ​​

С gfortran 7.4.0 не удается, но с ifort 18.0.3 работает хорошо.

program test
implicit none
type :: syntax
  integer, allocatable :: f(:)
end type
type(syntax), allocatable :: rhs(:)

allocate(rhs(2))
print*, allocated(rhs(2)%f)
print*, allocated(rhs(size(rhs))%f)
end program

gfortranошибка:

 F

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

Backtrace for this error:
#0  0x7f4cf40442da in ???
#1  0x7f4cf4043503 in ???
#2  0x7f4cf3c76f1f in ???
#3  0x55aa522e5e50 in test
    at /home/pena/Escritorio/c.f90:10
#4  0x55aa522e5f0d in main
    at /home/pena/Escritorio/c.f90:11
Violación de segmento (`core' generado)

Answer 1

Это ошибка в gfortran, которой нет в версии 8.

Если вы не можете обновить свой компилятор, есть простая альтернатива: просто используйте временную переменную для size(rhs):

hack = SIZE(rhs)
print*, allocated(rhs(hack)%f)

с выходом gfortran 7.4.0:

 F
 F