1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3  character*20 c(25), cv
4  character(kind=1,len=59) msg
5  character, parameter :: const_round = "c'est quoi?"
6  logical*2 v(5), lv
7  integer*1 stat1
8  integer*2 stat4
9  integer*8 stat8, iv
10  integer, parameter :: const_id = 1
11
12  inquire(10)
13  inquire(file='abc')
14  inquire(10, pos=ipos, iomsg=msg, iostat=stat1)
15  inquire(file='abc', &
16      access=c(1), action=c(2), asynchronous=c(3), blank=c(4), decimal=c(5), &
17      delim=c(6), direct=c(7), encoding=c(8), form=c(9), formatted=c(10), &
18      name=c(11), pad=c(12), position=c(13), read=c(14), readwrite=c(15), &
19      round=c(16), sequential=c(17), sign=c(18), stream=c(19), &
20      unformatted=c(20), write=c(21), &
21      err=9, &
22      nextrec=nextrec, number=number, pos=jpos, recl=jrecl, size=jsize, &
23      iomsg=msg, &
24      iostat=stat4, &
25      exist=v(1), named=v(2), opened=v(3), pending=v(4))
26  inquire(pending=v(5), file='abc')
27  inquire(10, id=id, pending=v(5))
28  inquire(10, id=const_id, pending=v(5))
29  inquire(10, carriagecontrol=c(1)) ! nonstandard
30
31  ! using variable 'cv' multiple times seems to be allowed
32  inquire(file='abc', &
33      access=cv, action=cv, asynchronous=cv, blank=cv, decimal=cv, &
34      delim=cv, direct=cv, encoding=cv, form=cv, formatted=cv, &
35      name=cv, pad=cv, position=cv, read=cv, readwrite=cv, &
36      round=cv, sequential=cv, sign=cv, stream=cv, &
37      unformatted=cv, write=cv, &
38      nextrec=iv, number=iv, pos=iv, recl=iv, size=iv, &
39      exist=lv, named=lv, opened=lv, pending=lv)
40
41  !ERROR: INQUIRE statement must have a UNIT number or FILE specifier
42  inquire(err=9)
43
44  !ERROR: If FILE appears, UNIT must not appear
45  inquire(10, file='abc', blank=c(22), iostat=stat8)
46
47  !ERROR: Duplicate FILE specifier
48  inquire(file='abc', file='xyz')
49
50  !ERROR: Duplicate FORM specifier
51  inquire(form=c(1), iostat=stat1, form=c(2), file='abc')
52
53  !ERROR: Duplicate SIGN specifier
54  !ERROR: Duplicate READ specifier
55  !ERROR: Duplicate WRITE specifier
56  inquire(1, read=c(1), write=c(2), sign=c(3), sign=c(4), read=c(5), write=c(1))
57
58  !ERROR: Duplicate IOMSG specifier
59  inquire(10, iomsg=msg, pos=ipos, iomsg=msg)
60
61  !ERROR: If ID appears, PENDING must also appear
62  inquire(file='abc', id=id)
63
64  !ERROR: ROUND variable 'const_round' must be definable
65  inquire(file='abc', round=const_round)
66
679 continue
68end
69