1! RUN: %S/test_errors.sh %s %t %f18 2!ERROR: No explicit type declared for 'f' 3function f() 4 implicit none 5end 6 7!ERROR: No explicit type declared for 'y' 8subroutine s(x, y) 9 implicit none 10 integer :: x 11end 12 13subroutine s2 14 implicit none 15 block 16 !ERROR: No explicit type declared for 'i' 17 i = 1 18 end block 19contains 20 subroutine s3 21 !ERROR: No explicit type declared for 'j' 22 j = 2 23 end subroutine 24end subroutine 25 26module m1 27 implicit none 28contains 29 subroutine s1 30 implicit real (a-h) 31 a1 = 1. 32 h1 = 1. 33 !ERROR: No explicit type declared for 'i1' 34 i1 = 1 35 !ERROR: No explicit type declared for 'z1' 36 z1 = 2. 37 contains 38 subroutine ss1 39 implicit integer(f-j) ! overlap with host scope import is OK 40 a2 = 1. 41 h2 = 1 42 i2 = 1 43 !ERROR: No explicit type declared for 'z2' 44 z2 = 2. 45 contains 46 !ERROR: An internal subprogram may not contain an internal subprogram 47 subroutine sss1 48 implicit none 49 !ERROR: No explicit type declared for 'a3' 50 a3 = 1. 51 end subroutine 52 end subroutine 53 end subroutine 54 subroutine s2 55 !ERROR: No explicit type declared for 'b1' 56 b1 = 1. 57 end subroutine 58end module 59