Lines Matching defs:s2

13   subroutine test_simple(s1, s2)
14     type(simple) :: s1, s2
15     call takes_simple([s1, s2])
41   subroutine test_with_polymorphic(s1, s2)
42     class(simple) :: s1, s2
43     call takes_simple([s1, s2])
78   type(simple) :: s1, s2
81   s2%i = 3
82   s2%j = 4
85   call test_simple(s1, s2)
87   call test_with_polymorphic(s1, s2)