! 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