! Program to test the default initialisation of enumerators inside different program unit module mod implicit none enum, bind (c) enumerator :: red , yellow, blue enumerator :: green end enum end module mod program main use mod implicit none if (red /= 0 ) call abort if (yellow /= 1) call abort if (blue /= 2) call abort if (green /= 3) call abort end program main
