xref: /llvm-project/flang/test/Semantics/implicit16.f90 (revision 1e19e1e1a471f648ff63f02114648211666669ca)
1*1e19e1e1SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1
2*1e19e1e1SPeter Klauslerinterface
3*1e19e1e1SPeter Klausler!ERROR: No explicit type declared for 'a'
4*1e19e1e1SPeter Klausler  subroutine s(a)
5*1e19e1e1SPeter Klausler    implicit none
6*1e19e1e1SPeter Klausler  end
7*1e19e1e1SPeter Klausler!ERROR: No explicit type declared for 'f'
8*1e19e1e1SPeter Klausler  function f()
9*1e19e1e1SPeter Klausler    implicit none
10*1e19e1e1SPeter Klausler  end
11*1e19e1e1SPeter Klauslerend interface
12*1e19e1e1SPeter Klauslerend
13