From 02a9cdb3fdb9cbf8868fd64da2cdf90b615db3ee Mon Sep 17 00:00:00 2001 From: Steve Scalpone Date: Mon, 9 Sep 2019 12:57:10 -0700 Subject: [PATCH] [flang] Define iso_fortran_env error_unit. Provisionally use a value of 0 to match PGI. Original-commit: flang-compiler/f18@ec7f0a0968d5552f9f95d1c24256d6fe40d36770 Reviewed-on: https://github.com/flang-compiler/f18/pull/722 --- flang/module/iso_fortran_env.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/flang/module/iso_fortran_env.f90 b/flang/module/iso_fortran_env.f90 index 25e417d01761..033e8c3e217e 100644 --- a/flang/module/iso_fortran_env.f90 +++ b/flang/module/iso_fortran_env.f90 @@ -34,7 +34,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 :: input_unit = 5, output_unit = 6, error_unit = 0 integer, parameter :: iostat_end = -1, iostat_eor = -2 integer, parameter :: iostat_inquire_internal_unit = -1