2 Aug 2019 7:32
#24146
The following code, when compiled with /CHECKMATE (DLL Rev 43) throws a CLEARWIN+ error of 'A Variable for %bb has not been given an initial value', then asks if I want to continue. This does not occur using /RELEASE. Note that there is not a single %bb in the following code.
use mswin
character*4:: xcproj=' '
INTEGER:: I,J
integer:: sheet_displayed,enable_save
logical:: sheet_viewed(0:4)
integer,external:: sheet_started
common/sheet_temp/sheet_displayed,sheet_viewed,enable_save
integer,external:: button1,button2,r
integer,external:: ptract_generic,pcomp_generic
LOGICAL:: local_error
integer,external:: button_test
integer(7):: handle_1,handle_2,handle_3,handle_4
character*4:: priinv=' ',pbreg=' ',pupper=' ',plower=' ',pdate,prdesc(5)
local_error = .false.
! UPDPRJ_windows=.TRUE.
sheet_viewed = .false.
sheet_viewed(1) = .true.
if(xcproj.ne.' ') sheet_viewed = .true.
sheet_displayed = 1
i = winio@('%sh&',handle_1)
i = winio@('%ca[Principal Investigator and Bed codes]&')
i = winio@('%bg&',rgb@(250,250,250))
i = winio@('1. Principal Investigator: %rs[uppercase]%ff%nl&',priinv)
i = winio@('2. Bed Code Region: %rs[uppercase]%ff%nl&',pbreg)
i = winio@('3. Upper Bed Code: %rs[uppercase]%ff%nl&',pupper)
i = winio@('4. Lower Bed Code: %rs[uppercase]%ff%nl&',plower)
i = winio@(' ') ! close the previous sheet
print *,'Sheet 1 built'
! Sheet 2 - State, County, Township (20 OF EACH ELEMENT, SO USE %ob)
i = winio@('%sh&',handle_2)
i = winio@('%ca[State, County, Township]&')
i = winio@('%bg&',rgb@(250,250,250))
i = winio@('%*.*ob&',4,1) ! s/b 4,21
i = winio@('##%cbState%cbCounty%cbTownship%cb&')
i = winio@(' ') ! close the previous sheet
print *,'Sheet 2 built'
! Sheet 3 - Company, Tract, Mine (20 OF EACH ELEMENT, SO USE %ob; also, lots of buttons)
i = winio@('%sh&',handle_3)
i = winio@('%ca[Company, Tract, Mine]&')
i = winio@('%bg&',rgb@(250,250,250))
i = winio@('%*.*ob[line_colour]&',4,1,rgb@(0,255,0)) ! s/b 4,21
i = winio@('##%cbCompany%cbTract%cbMine%cb&')
i = winio@(' ') ! close the previous sheet
print *,'Sheet 3 built'
! Sheet 4 - Dates and Descriptions
i = winio@('%sh&',handle_4)
i = winio@('%ca[Dates and Descriptions]&')
i = winio@('%bg&',rgb@(250,250,250))
i = winio@('11. Date (mm/dd/yy): %rs[uppercase]%ff%nl&',pdate)
do i=1,5
j = winio@('%3wd: %rs[UPPERCASE]%nl&',i,prdesc(i))
end do
i = winio@(' ') ! close the previous sheet
print *,'Sheet 4 built'
if(xcproj.ne.' ') then
i = winio@('%ca[Enter/Edit Current Project Information for Project='//xcproj//']&')
else
i = winio@('%ca[Enter/Edit a New Project]&')
endif
i = winio@('%bfClick each of the TABS below to enter/edit the data, then click %~^bt[SAVE] or %^bt[CANCEL]%ff%nl&',enable_save,button1,button2)
i = winio@('%4ps[hot_track]',handle_1,handle_2,handle_3,handle_4)!`^,sheet_displayed,SHEET_STARTED)
! updprj_windows = i.eq.1 ! return code of 1 means all work was accepted
end
integer function button1()
button1 = 1
return
end
integer function button2()
button2 = 2
return
end