PROGRAM main_test

    USE test_def

    print *, "In main - before init_test_def"
    print *, "test_def", have_infile

    call init_test_def()

    print *, "In main - after init_test_def"
    print *, "test_def", have_infile
    print *, "In main - before set_test_def"

    call set_test_def()

    print *, "In main - after set_test_def"
    print *, "test_def", have_infile

    call init_test_def()

    print *, "In main - before init_test_def"
    print *, "test_def", have_infile

END PROGRAM main_test