Upload New File

Sonderuebung/WiSe23-24/SU02_2023-10-24/05_logical_test.f95

+program logical_test
+    implicit none
+
+    ! Test für die Operatoren für Logicals
+    
+    LOGICAL :: yes = .true.
+    LOGICAL :: no = .false.
+
+    WRITE(*,*) "Ja und Nein"
+    WRITE(*,*) yes
+    WRITE(*,*) no
+
+    WRITE(*,*) "Nicht Ja"
+    WRITE(*,*) .NOT. yes
+
+    WRITE(*,*) "Und und Oder"
+    WRITE(*,*) yes .AND. no
+    WRITE(*,*) yes .OR. no
+
+    WRITE(*,*) "Gleich und Ungleich"
+    WRITE(*,*) yes .EQV. no
+    WRITE(*,*) yes .NEQV. no
+end program logical_test
\ No newline at end of file