! PWR008: Declare the intent for each procedure parameter
! https://www.appentra.com/knowledge/checks/pwr008

SUBROUTINE example(a, b)
    IMPLICIT NONE
    INTEGER :: a
    INTEGER :: b

    a = 5
    b = a * 2 ! This is allowed because no intent has been declared
END SUBROUTINE example
