add interface-limit-2

fpm.toml

@@ -131,8 +131,13 @@ name = "wrapper"
 source-dir = "src/structural/wrapper"
 main = "wrapper_main.f90"
 
-# interface-limit
+# others
 [[test]]
 name = "interface-limit"
-source-dir = "src/interface-limit"
+source-dir = "src/others/interface-limit"
 main = "interface_limit_main.f90"
+
+[[test]]
+name = "interface-specific"
+source-dir = "src/others/interface-specific"
+main = "interface_specific_main.f90"

src/others/interface-specific/interface_specific_main.f90

@@ -0,0 +1,15 @@
+!> @note use `select type` is a limited form of polymorphism
+program interface_specific_main
+
+    use interface_specific_module, only: shape, circle, print_circle
+    implicit none
+    class(shape), allocatable :: s1
+
+    allocate (circle :: s1)
+
+    select type (s1)
+    type is (circle)
+        call print_circle(s1)
+    end select
+
+end program interface_specific_main

src/others/interface-specific/interface_specific_module.f90

@@ -0,0 +1,24 @@
+module interface_specific_module
+
+    implicit none
+
+    private
+    public :: shape, circle, print_circle
+
+    type, abstract :: shape
+    end type shape
+
+    type, extends(shape) :: circle
+    end type circle
+
+contains
+
+    !> print circle
+    subroutine print_circle(this)
+        type(circle), intent(in) :: this
+
+        print *, 'circle'
+
+    end subroutine print_circle
+
+end module interface_specific_module