1! This uncovered a bug in the reading/writing of expressions. 2module module_expr_1 3 integer a 4end module 5 6module module_expr_2 7 use module_expr_1 8contains 9 10subroutine myproc (p) 11 integer, dimension (a) :: p 12end subroutine 13end module 14 15program module_expr 16 use module_expr_1 17 use module_expr_2 18end program 19