1! PR fortran/21647 2program inquire_5 3 integer (kind = 8) :: unit8 4 logical (kind = 8) :: exist8 5 integer (kind = 4) :: unit4 6 logical (kind = 4) :: exist4 7 integer (kind = 2) :: unit2 8 logical (kind = 2) :: exist2 9 integer (kind = 1) :: unit1 10 logical (kind = 1) :: exist1 11 character (len = 6) :: del 12 unit8 = 78 13 open (file = 'inquire_5.txt', unit = unit8) 14 unit8 = -1 15 exist8 = .false. 16 unit4 = -1 17 exist4 = .false. 18 unit2 = -1 19 exist2 = .false. 20 unit1 = -1 21 exist1 = .false. 22 inquire (file = 'inquire_5.txt', number = unit8, exist = exist8) 23 if (unit8 .ne. 78 .or. .not. exist8) call abort 24 inquire (file = 'inquire_5.txt', number = unit4, exist = exist4) 25 if (unit4 .ne. 78 .or. .not. exist4) call abort 26 inquire (file = 'inquire_5.txt', number = unit2, exist = exist2) 27 if (unit2 .ne. 78 .or. .not. exist2) call abort 28 inquire (file = 'inquire_5.txt', number = unit1, exist = exist1) 29 if (unit1 .ne. 78 .or. .not. exist1) call abort 30 del = 'delete' 31 close (unit = 78, status = del) 32end 33