SUBROUTINE set_test_def() USE test_def print *, "In testing - before setting have_infile" print *, "test_def ", have_infile have_infile = .true. print *, "In testing - after setting have_infile" print *, "test_def ", have_infile RETURN END SUBROUTINE set_test_def