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