1 ! RUN: %python %S/test_errors.py %s %flang_fc1
3 integer :: p
! this is ok
6 integer :: m
! this is ok
9 integer :: sm
! this is ok
16 !ERROR: Module 'm2' cannot USE itself
22 !ERROR: 's' is already declared in this scoping unit
25 function f() result(res
)
27 !ERROR: 'f' is already declared in this scoping unit
28 !ERROR: The type of 'f' has already been declared