| ! RUN: %python %S/test_errors.py %s %flang_fc1 | |
| ! Test rename to the same name. | |
| module m1 | |
| integer, allocatable :: a(:) | |
| interface operator(.add.) | |
| module procedure add | |
| end interface | |
| contains | |
| integer function add(a, b) | |
| integer, intent(in) :: a, b | |
| add = a + b | |
| end function | |
| end | |
| program p1 | |
| use m1, a => a, operator(.add.) => operator(.add.) | |
| allocate(a(10)) | |
| deallocate(a) | |
| print *, 2 .add. 2 | |
| end |