diff options
| author | Peter Klausler <pklausler@nvidia.com> | 2021-11-18 09:34:43 -0800 |
|---|---|---|
| committer | Peter Klausler <pklausler@nvidia.com> | 2021-11-22 09:02:39 -0800 |
| commit | a62b60167ddbc23602ea20d65a41b2cd1ce5953a (patch) | |
| tree | fedea354c7371d6aed51dcfbd4629887842e1589 /flang/module | |
| parent | e7cee55c9d6b178baae3388ae2f620b44cf51e63 (diff) | |
| download | llvm-a62b60167ddbc23602ea20d65a41b2cd1ce5953a.tar.gz | |
[flang] Predefine unit 0 connected to stderr
This is a near-universal language extension; external unit 0
is preconnected to the standard error output.
Differential Revision: https://reviews.llvm.org/D114298
Diffstat (limited to 'flang/module')
| -rw-r--r-- | flang/module/iso_fortran_env.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/flang/module/iso_fortran_env.f90 b/flang/module/iso_fortran_env.f90 index 3d77485c13e3..e85d2e2a7a36 100644 --- a/flang/module/iso_fortran_env.f90 +++ b/flang/module/iso_fortran_env.f90 @@ -129,7 +129,7 @@ module iso_fortran_env integer, parameter :: current_team = -1, initial_team = -2, parent_team = -3 integer, parameter :: input_unit = 5, output_unit = 6 - integer, parameter :: error_unit = output_unit + integer, parameter :: error_unit = 0 integer, parameter :: iostat_end = -1, iostat_eor = -2 integer, parameter :: iostat_inquire_internal_unit = -1 |