Types

      program different_types

      Implicit none
      Real X, Y
      Integer A, B
      Real pi
      Parameter(PI=3.141592653)

      X = 2 * PI
      Y = X**2
      A = Y
      B = Y / 100
      write(*,*) PI, X, Y, A, B

      X = PI / 10
      A = PI
      B = PI / 10
      write(*,*) X, A, B
      end