xref: /llvm-project/flang/test/Semantics/bug123538.f90 (revision 3ac00784ac3cd8b435c0c6be36f81f786ca5e489) 
1*3ac00784SPeter Klausler!RUN: %python %S/test_errors.py %s %flang_fc1
2*3ac00784SPeter Klauslerprocedure(), pointer :: pp => tan
3*3ac00784SPeter Klausler!ERROR: EXTERNAL attribute was already specified on 'pp'
4*3ac00784SPeter Klausler!ERROR: POINTER attribute was already specified on 'pp'
5*3ac00784SPeter Klausler!ERROR: 'pp' was previously initialized
6*3ac00784SPeter Klauslerprocedure(real), pointer :: pp => tan
7*3ac00784SPeter Klauslerend
8