F_Front: segfault when importing a function that receives an array of length returned by another function

[skosukhin]

We have file a.f90:

MODULE A
CONTAINS
  PURE INTEGER FUNCTION get_size()
    get_size = 5
  END FUNCTION get_size

  SUBROUTINE foo(a)
    INTEGER, INTENT(IN) :: a(get_size())    
  END SUBROUTINE foo
END MODULE A

And file b.f90:

MODULE B
  USE A, ONLY: foo
END MODULE B

The following commands result in a segfault:

$F_Front a.f90 >/dev/null
$F_Front b.f90 >/dev/null
Segmentation fault

However, when we put both modules into the same translation unit, the problem is gone:

$cat ./a.f90 > ./c.f90
$cat ./b.f90 >> ./c.f90
$F_Front c.f90 >/dev/null && echo "Success"
Success