diff options
| -rw-r--r-- | driver/Driver.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/driver/Driver.ml b/driver/Driver.ml index 37e3b44c..e787b935 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -683,6 +683,11 @@ let _ = eprintf "Ambiguous '-o' option (multiple source files)\n"; exit 2 end; + if !num_source_files = 0 then + begin + eprintf "ccomp: error: no input file\n"; + exit 2 + end; let linker_args = time "Total compilation time" perform_actions () in if (not nolink) && linker_args <> [] then begin linker (output_filename_default "a.out") linker_args |