! Copyright (c) 2021, Advanced Micro Devices, Inc. All rights reserved.
!
! Date of Modification: May 2021

      module TESTMOD
      implicit double precision (a-h,o-z)
      parameter ( NZ  = 497 )
      integer, public ::  A(0:NZ)

       data (A(i),i=0,NZ)/
     &  1,
     &  1,
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                      
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  0,                       
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  0,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                      
     &  1,                              
     &  1,                      
     &  1,                       
     &  1,                      
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                      
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  0,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  1,                       
     &  0/                  ! comment
       
      end module TESTMOD

      program main
      USE CHECK_MOD
          use TESTMOD 
          implicit none
          logical results(2)
          logical expect(2)
      
          results = .false.
          expect = .true.
      
          results(1) = 1 .eq. A(496)
          results(2) = 0 .eq. A(497)
      
          call check(results,expect,2)
      end
