From 0535b182ab18f82a68411b9d819d41f42809c365 Mon Sep 17 00:00:00 2001
From: dali662d <dana.liebscher@mailbox.tu-dresden.de>
Date: Tue, 19 Nov 2024 16:14:49 +0000
Subject: [PATCH] Update 03_taschenrechner_mit_funktionen.f95
---
.../03_taschenrechner_mit_funktionen.f95 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Sonderuebung/WiSe24-25/SU05_20204_11_19_Unterprogramme/03_taschenrechner_mit_funktionen.f95 b/Sonderuebung/WiSe24-25/SU05_20204_11_19_Unterprogramme/03_taschenrechner_mit_funktionen.f95
index 2a39df1..90a05ac 100644
--- a/Sonderuebung/WiSe24-25/SU05_20204_11_19_Unterprogramme/03_taschenrechner_mit_funktionen.f95
+++ b/Sonderuebung/WiSe24-25/SU05_20204_11_19_Unterprogramme/03_taschenrechner_mit_funktionen.f95
@@ -138,7 +138,7 @@ program taschenrechner
function dreieckszahl(n) result(res)
- integer :: n
+ integer, intent(in) :: n
integer :: i
integer :: res
--
GitLab