59 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12!ERROR: No explicit type declared for 'f'3function f()4 implicit none5end6 7!ERROR: No explicit type declared for 'y'8subroutine s(x, y)9 implicit none10 integer :: x11end12 13subroutine s214 implicit none15 block16 !ERROR: No explicit type declared for 'i'17 i = 118 end block19contains20 subroutine s321 !ERROR: No explicit type declared for 'j'22 j = 223 end subroutine24end subroutine25 26module m127 implicit none28contains29 subroutine s130 implicit real (a-h)31 a1 = 1.32 h1 = 1.33 !ERROR: No explicit type declared for 'i1'34 i1 = 135 !ERROR: No explicit type declared for 'z1'36 z1 = 2.37 contains38 subroutine ss139 implicit integer(f-j) ! overlap with host scope import is OK40 a2 = 1.41 h2 = 142 i2 = 143 !ERROR: No explicit type declared for 'z2'44 z2 = 2.45 contains46 !ERROR: An internal subprogram may not contain an internal subprogram47 subroutine sss148 implicit none49 !ERROR: No explicit type declared for 'a3'50 a3 = 1.51 end subroutine52 end subroutine53 end subroutine54 subroutine s255 !ERROR: No explicit type declared for 'b1'56 b1 = 1.57 end subroutine58end module59