open-catalog/Checks/PWR063/example.f at main · codee-com/open-catalog · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
! PWR063: avoid using legacy Fortran constructs

      program LegacyFortran
        implicit none
        integer A, B, C, X, I
        ! NOT-PWR073: We're using the `common block` as a legacy construct
        common /MyCommonBlock/ A, B, C
        data A /10/, B /20/, C /30/, X /0/, I /1/

10      continue
        call UpdateValue(X)
        write(*,*) "Update X =", X
        I = I + 1
        if (I - 11) 10, 20, 30

20      continue
        write(*,*) "Final  X =", X
        stop

30      continue
        write(*,*) "Error: loop exceeded 10 iterations"
        stop

        contains

        subroutine UpdateValue(X)
          implicit none
          integer A, B, C
          integer, intent(inout) :: X
          common /MyCommonBlock/ A, B, C
          X = X + A + B + C
        end subroutine UpdateValue
      end program LegacyFortran