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)
7 contains
8  subroutine test(n)
9    integer, intent(in) :: n
10    integer :: lab
11    integer(kind=1) :: badlab1
12    real :: badlab2
13    integer :: badlab3(1)
14    assign 1 to lab ! ok
15    assign 1 to implicitlab1 ! ok
16    !ERROR: 'badlab1' must be a default integer scalar variable
17    assign 1 to badlab1
18    !ERROR: 'badlab2' must be a default integer scalar variable
19    assign 1 to badlab2
20    !ERROR: 'badlab3' must be a default integer scalar variable
21    assign 1 to badlab3
22    !ERROR: 'test' must be a default integer scalar variable
23    assign 1 to test
24    if (n==1) goto lab ! ok
25    if (n==1) goto implicitlab2 ! ok
26    !ERROR: 'badlab1' must be a default integer scalar variable
27    if (n==1) goto badlab1
28    !ERROR: 'badlab2' must be a default integer scalar variable
29    if (n==1) goto badlab2
30    !ERROR: 'badlab3' must be a default integer scalar variable
31    if (n==1) goto badlab3
32    if (n==1) goto lab(1) ! ok
33    if (n==1) goto lab,(1) ! ok
34    if (n==1) goto lab(1,1) ! ok
35    assign 3 to lab ! ok
36    write(*,fmt=lab) ! ok
37    write(*,fmt=implicitlab3) ! ok
38    !ERROR: Format expression must be default character or integer
39    write(*,fmt=badlab1)
40    !ERROR: Format expression must be default character or integer
41    write(*,fmt=badlab2)
42    !ERROR: Format expression must be default character or integer
43    write(*,fmt=badlab2)
441   continue
453   format('yes')
46  end subroutine test
47end program
48