1! RUN: %S/test_errors.sh %s %t %f18
2! Test ASSIGN statement, assigned GOTO, and assigned format labels
3! (see subclause 8.2.4 in Fortran 90 (*not* 2018!)
4
5program main
6  call test(0)
72 format('no')
8 contains
9  subroutine test(n)
10    !ERROR: Label '4' is not a branch target or FORMAT
114   integer, intent(in) :: n
12    integer :: lab
13    assign 1 to lab ! ok
14    assign 1 to implicitlab1 ! ok
15    !ERROR: Label '666' was not found
16    assign 666 to lab
17    !ERROR: Label '2' was not found
18    assign 2 to lab
19    assign 4 to lab
20    if (n==1) goto lab ! ok
21    if (n==1) goto implicitlab2 ! ok
22    if (n==1) goto lab(1) ! ok
23    if (n==1) goto lab,(1) ! ok
24    if (n==1) goto lab(1,1) ! ok
25    !ERROR: Label '666' was not found
26    if (n==1) goto lab(1,666)
27    !ERROR: Label '2' was not found
28    if (n==1) goto lab(1,2)
29    assign 3 to lab
30    write(*,fmt=lab) ! ok
31    write(*,fmt=implicitlab3) ! ok
321   continue
333   format('yes')
34  end subroutine test
35end program
36