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