1! Program to test the default initialisation of enumerators inside different program unit
2
3module mod
4  implicit none
5  enum, bind (c)
6    enumerator :: red , yellow, blue
7    enumerator :: green
8  end enum
9end module mod
10
11program main
12  use mod
13  implicit none
14
15  if (red /= 0 ) call abort
16  if (yellow /= 1) call abort
17  if (blue /= 2) call abort
18  if (green /= 3) call abort
19end program main
20