Add Use cases snippets

Author: tamara-laranga

Use-Cases/Makefile

@@ -0,0 +1,23 @@
+FC = gfortran
+CC = gcc
+
+FFLAGS ?= -c -cpp -Wall -Wuninitialized -Wmaybe-uninitialized
+CFLAGS ?= -c -Wall -Wuninitialized -Wmaybe-uninitialized
+
+F90_SRCS := $(wildcard *.f90)
+C_SRCS  := $(wildcard *.c)
+
+PROGS := $(F90_SRCS:.f90=) $(C_SRCS:.c=)
+
+.PHONY: all clean
+
+all: $(PROGS)
+
+%: %.f90
+	$(FC) $(FFLAGS) $< -o $@
+
+%: %.c
+	$(CC) $(CFLAGS) $< -o $@
+
+clean:
+	-rm -f $(PROGS)

Use-Cases/chk158-1.f90

@@ -0,0 +1,14 @@
+SUBROUTINE test_routine16(n, sum)
+    IMPLICIT NONE
+    INTEGER(KIND=4) :: n
+    REAL(KIND=8), DIMENSION(100) :: A
+    REAL(KIND=8) :: sum
+    INTEGER(KIND=4) :: i
+
+    A(1) = 1.0
+
+    sum = 0.0
+    DO i = 1, n
+        sum = sum + A(i)
+    END DO
+END SUBROUTINE

Use-Cases/chk159-2.f90

@@ -0,0 +1,16 @@
+SUBROUTINE test_routine17(n, sum)
+    IMPLICIT NONE
+    INTEGER(KIND=4) :: n
+    REAL(KIND=8), DIMENSION(100) :: A
+    REAL(KIND=8) :: sum
+    INTEGER(KIND=4) :: i
+
+    DO i = 4, 23
+        A(i) = 1.0
+    END DO
+
+    sum = 0.0
+    DO i = 1, n
+        sum = sum + A(i)
+    END DO
+END SUBROUTINE

Use-Cases/pwr072-1.f90

@@ -0,0 +1,31 @@
+! This already is in the open-catalog in the PWR072 section: example.f90
+! PWR072: Explicitly declare the 'save' attribute or split the variable
+!         initialization to prevent unintended behavior
+
+program test_implicit_save
+  implicit none
+  integer, dimension(3) :: A = [1, 1, 1], B = [2, 2, 2]
+  integer :: result
+
+  result = sum_array(A)
+  print *, "Sum of A:", result ! Expected: 3
+
+  result = sum_array(B)
+  print *, "Sum of B:", result ! Expected: 6
+
+contains
+
+  integer function sum_array(array)
+    implicit none
+    integer, intent(in) :: array(:)
+    integer :: result = 0
+    integer :: i
+
+    do i = 1, size(array)
+      result = result + array(i)
+    end do
+
+    sum_array = result
+  end function sum_array
+
+end program test_implicit_save

Use-Cases/pwr072-2.f90

@@ -0,0 +1,33 @@
+! This already is in the open-catalog in the PWR072 section: solution.f90
+! PWR072: Explicitly declare the 'save' attribute or split the variable
+!         initialization to prevent unintended behavior
+
+program test_implicit_save
+  implicit none
+  integer, dimension(3) :: A = [1, 1, 1], B = [2, 2, 2]
+  integer :: result
+
+  result = sum_array(A)
+  print *, "Sum of A:", result ! Expected: 3
+
+  result = sum_array(B)
+  print *, "Sum of B:", result ! Expected: 6
+
+contains
+
+  pure integer function sum_array(array)
+    implicit none
+    integer, intent(in) :: array(:)
+    integer :: result
+    integer :: i
+
+    result = 0
+
+    do i = 1, size(array)
+      result = result + array(i)
+    end do
+
+    sum_array = result
+  end function sum_array
+
+end program test_implicit_save

Use-Cases/pwr079-1.f90

@@ -0,0 +1,10 @@
+SUBROUTINE test_routine01() 
+    IMPLICIT NONE
+    REAL(KIND=8) :: stopped
+
+    IF (stopped > 0.5) THEN
+        WRITE(*,*) 'Loop exited before step n'
+    ELSE
+        WRITE(*,*) 'No early exit'
+    END IF
+END SUBROUTINE

Use-Cases/pwr079-2.f90

@@ -0,0 +1,10 @@
+SUBROUTINE test_routine02(n)
+    IMPLICIT NONE
+    INTEGER(KIND=4), INTENT(IN) :: n
+    INTEGER(KIND=4) :: i
+    REAL(KIND=4) :: sum
+
+    DO i = 1, n
+        sum = sum + i
+    END DO
+END SUBROUTINE

Use-Cases/pwr079-3.f90

@@ -0,0 +1,10 @@
+SUBROUTINE test_routine03pointer(n)
+    IMPLICIT NONE
+    INTEGER(KIND=4), INTENT(IN) :: n
+    INTEGER(KIND=4) :: i 
+    INTEGER, POINTER :: sum_pointer
+
+    DO i = 1, n
+        sum_pointer = sum_pointer + i
+    END DO
+END SUBROUTINE

Use-Cases/pwr079-4.f90

@@ -0,0 +1,13 @@
+SUBROUTINE test_routine04(n)
+    IMPLICIT NONE
+    INTEGER(KIND=4), INTENT(IN) :: n
+    REAL(KIND=8), DIMENSION(100) :: A
+    REAL(KIND=8) :: sum
+    INTEGER(KIND=4) :: i
+
+    sum = 0
+    DO i = 1, n
+        sum = sum + A(i)
+    END DO
+END SUBROUTINE
+

Use-Cases/pwr079-5.f90

@@ -0,0 +1,10 @@
+SUBROUTINE test_routine05()
+    IMPLICIT NONE
+    REAL(KIND=8), DIMENSION(100) :: A
+
+    IF (A(3) > 0.5) THEN
+        WRITE(*,*) 'Loop exited before step n'
+    ELSE
+        WRITE(*,*) 'No early exit'
+    END IF
+END SUBROUTINE