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