diff --git a/examples/asr.f90 b/examples/asr.f90
new file mode 100644
index 0000000000..77f879666c
--- /dev/null
+++ b/examples/asr.f90
@@ -0,0 +1,4 @@
+integer function f(a, b) result(r)
+integer, intent(in) :: a, b
+r = a + b
+end function