1! Program to test the default initialisation of enumerators 2 3program main 4 implicit none 5 6 enum, bind (c) 7 enumerator :: red , yellow, blue 8 enumerator :: green 9 end enum 10 11 enum, bind (c) 12 enumerator :: a , b , c = 10 13 enumerator :: d 14 end enum 15 16 17 if (red /= 0 ) STOP 1 18 if (yellow /= 1) STOP 2 19 if (blue /= 2) STOP 3 20 if (green /= 3) STOP 4 21 22 if (a /= 0 ) STOP 5 23 if (b /= 1) STOP 6 24 if (c /= 10) STOP 7 25 if (d /= 11) STOP 8 26 27 28end program main 29