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