PROGRAM pii
  IMPLICIT NONE
  INTEGER, PARAMETER :: &
      pienitarkkuus = SELECTED_REAL_KIND(6, 30), &
      suuritarkkuus = SELECTED_REAL_KIND(12)
  REAL (KIND=suuritarkkuus) :: pi1
  REAL (KIND=pienitarkkuus) :: pi2
  COMPLEX (KIND=suuritarkkuus) :: pi3

  pi1 = 4*ATAN(1.0_suuritarkkuus)
  pi2 = 4*ATAN(1.0_pienitarkkuus)
  pi3 = 6*ASIN(0.5_suuritarkkuus)
  WRITE (*,*) 'pii: ', pi1, pi2
  WRITE (*,*) 'pii: ', pi3
END PROGRAM pii