1! RUN: %S/test_errors.sh %s %t %f18 2! C1107 -- COMMON, EQUIVALENCE, INTENT, NAMELIST, OPTIONAL, VALUE or 3! STATEMENT FUNCTIONS not allow in specification part 4 5subroutine s1_c1107 6 common /nl/x 7 block 8 !ERROR: COMMON statement is not allowed in a BLOCK construct 9 common /nl/y 10 end block 11end 12 13subroutine s2_c1107 14 real x(100), i(5) 15 integer y(100), j(5) 16 equivalence (x, y) 17 block 18 !ERROR: EQUIVALENCE statement is not allowed in a BLOCK construct 19 equivalence (i, j) 20 end block 21end 22 23subroutine s3_c1107(x_in, x_out) 24 integer x_in, x_out 25 intent(in) x_in 26 block 27 !ERROR: INTENT statement is not allowed in a BLOCK construct 28 intent(out) x_out 29 end block 30end 31 32subroutine s4_c1107 33 namelist /nl/x 34 block 35 !ERROR: NAMELIST statement is not allowed in a BLOCK construct 36 namelist /nl/y 37 end block 38end 39 40subroutine s5_c1107(x,y) 41 integer x, y 42 value x 43 block 44 !ERROR: VALUE statement is not allowed in a BLOCK construct 45 value y 46 end block 47end 48 49subroutine s6_c1107(x, y) 50 integer x, y 51 optional x 52 block 53 !ERROR: OPTIONAL statement is not allowed in a BLOCK construct 54 optional y 55 end block 56end 57 58subroutine s7_c1107 59 integer x 60 inc(x) = x + 1 61 block 62 !ERROR: STATEMENT FUNCTION statement is not allowed in a BLOCK construct 63 dec(x) = x - 1 64 end block 65end 66 67