[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / resolve116.f90
bloba46b677396fc0ccdf4cd7ece7008505f9e4d4b36
1 ! RUN: %python %S/test_errors.py %s %flang_fc1
2 ! Test rename to the same name.
3 module m1
4 integer, allocatable :: a(:)
6 interface operator(.add.)
7 module procedure add
8 end interface
10 contains
11 integer function add(a, b)
12 integer, intent(in) :: a, b
14 add = a + b
15 end function
16 end
18 program p1
19 use m1, a => a, operator(.add.) => operator(.add.)
21 allocate(a(10))
22 deallocate(a)
23 print *, 2 .add. 2
24 end