module_expr.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 19 行

! This uncovered a bug in the reading/writing of expressions.
module module_expr_1
   integer a
end module

module module_expr_2
   use module_expr_1
contains

subroutine myproc (p)
   integer, dimension (a) :: p
end subroutine
end module

program module_expr
   use module_expr_1
   use module_expr_2
end program