PR rtl-optimization/82913

[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / compile / module_expr.f90

! 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