# Essai

essai

# Tests

## IF

- IF (expression_logique) THEN

  instructions

  ELSEIF (expression logique) THEN

  instructions

1

    program demo_if

2

    integer i /3/

3

    if (i .eq. 2 .or. i .eq.1 .or. i .eq. 7 .or. i .eq. 8) then

4

        print*, 'I vaut 1 ou 2 ou 7 ou 8'

5

    else if (i .eq. 5) then

6

        print*, 'I vaut 5'

7

    else if (i .eq. 3) then

8

        print*,  'I vaut 3'

9

    else

10

        print*, 'I vaut autre chose'

11

    end if

12

    end

Exécuter ce code https://onlinegdb.com/ZsyZjUDdWw

## SELECT

- SELECT CASE (expression)

  CASE (liste1)

  instructions

  CASE (liste2)

  instructions

  CASE default

  instructions

  END SELECT

1

    program demo_select

2

    integer i /3/

3

    select case (i)

4

    case (1,2,7,8)

5

        print*, 'I vaut 1 ou 2 ou 7 ou 8'

6

    case (5)

7

        print*, 'I vaut 5'

8

    case (3)

9

        print*,  'I vaut 3'

10

    case default

11

        print*, 'I vaut autre chose'

12

    end select

13

    end

Exécuter ce code https://onlinegdb.com/2YFmxPlMh

## SELECT

- SELECT CASE (expression)

  CASE (liste1)

  instructions

  CASE (liste2)

  instructions

  CASE default

  instructions

  END SELECT

1

    program demo_select

2

    integer i /3/

3

    select case (i)

4

    case (1,2,7,8)

5

        print*, 'I vaut 1 ou 2 ou 7 ou 8'

6

    case (5)

7

        print*, 'I vaut 5'

8

    case (3)

9

        print*,  'I vaut 3'

10

    case default

11

        print*, 'I vaut autre chose'

12

    end select

13

    end

Exécuter ce code https://onlinegdb.com/2YFmxPlMh