У меня есть код, который дает мне ошибки перемещения при компиляции, ниже приведен пример, который иллюстрирует проблему:

  program main
  common/baz/a,b,c
  real a,b,c
  b = 0.0
  call foo()
  print*, b
  end

  subroutine foo()
  common/baz/a,b,c
  real a,b,c

  integer, parameter :: nx = 450
  integer, parameter :: ny = 144
  integer, parameter :: nz = 144
  integer, parameter :: nf = 23*3
  real :: bar(nf,nx*ny*nz)

  !real, allocatable,dimension(:,:) :: bar
  !allocate(bar(nf,nx*ny*nz))

  bar = 1.0
  b = bar(12,32*138*42)

  return
  end

Компилируя это сgfortran -O3 -g -o test test.fЯ получаю следующую ошибку:

relocation truncated to fit: R_X86_64_PC32 against symbol `baz_' defined in COMMON section in /tmp/ccIkj6tt.o

Но это работает, если я используюgfortran -O3 -mcmodel=medium -g -o test test.f, Также обратите внимание, что это работает, если я сделаю массив размещаемым и выделю его в подпрограмме.

Мой вопрос, что именно делает-mcmodel=medium делать? У меня сложилось впечатление, что две версии кода (одна сallocatable массивы и тот, что без) были более или менее эквивалентны ...