subroutine print_test_help() write (*, '(A)') "Usage: fortran --test [OPTIONS] [FILTER]" write (*, '(A)') "" write (*, '(A)') "Run project tests with parallel execution and smart load balancing." write (*, '(A)') "" write (*, '(A)') "Options:" write (*, '(A)') " -v, --verbose Show detailed output for all tests" write (*, '(A)') " -q, --quiet Minimal output (only failures and summary)" write (*, '(A)') " --filter PATTERN Run only tests matching the pattern" write (*, '(A)') " -j, --jobs N Use N threads (default: auto-detect)" write (*, '(A)') " -h, --help Show this help message" write (*, '(A)') "" write (*, '(A)') "Examples:" write (*, '(A)') " fortran --test # Run all tests" write (*, '(A)') " fortran --test frontend # Run tests matching 'frontend'" write (*, '(A)') " fortran --test --filter cache # Run tests matching 'cache'" write (*, '(A)') " fortran --test -v --jobs 4 # Verbose output using 4 threads" write (*, '(A)') " fortran --test -q # Quiet mode (only show failures)" write (*, '(A)') "" write (*, '(A)') "Features:" write (*, '(A)') " • Parallel execution with dynamic work queue" write (*, '(A)') " • Real-time progress reporting" write (*, '(A)') " • Automatic test discovery using FPM API" write (*, '(A)') " • Detailed failure diagnostics" write (*, '(A)') " • Smart load balancing across CPU cores" end subroutine print_test_help