1*635656f4SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1
2*635656f4SPeter Klauslerprocedure(sin), pointer :: pp
3*635656f4SPeter Klausler!ERROR: 'pp' has an explicit interface and may not also have a type
4*635656f4SPeter Klauslerreal :: pp
5*635656f4SPeter Klauslerend
6