diff --git a/2023/src/template.f90 b/2023/src/template.f90
new file mode 100644
index 0000000..b3a94ef
--- /dev/null
+++ b/2023/src/template.f90
@@ -0,0 +1,18 @@
+program day
+    implicit none
+    integer, parameter :: max_chars = 300
+    character(200) :: fname
+    character(max_chars) :: fline
+    integer :: n_arguments
+    n_arguments = command_argument_count()
+    integer :: istat
+
+    if (n_arguments .eq. 1) then
+        call get_command_argument(1, fname)
+        print *, "File: ", trim(fname)
+        print *
+    else
+        print *, "Wrong number of arguments: ", n_arguments
+        stop
+    end if
+end program day