| #!/bin/sh |
| |
| |
| t_Log "Running $0 - gcc-gnat can build a hello.adb" |
| |
| if [ "$centos_ver" -lt 7 ] ; then |
| t_Log "CentOS $centos_ver -> SKIP" |
| exit 0 |
| fi |
| |
| |
| pushd '/var/tmp' >/dev/null |
| FILE='/var/tmp/gcctesthello.adb' |
| EXE='/var/tmp/gcctesthello' |
| |
| cat > $FILE <<EOF |
| with Ada.Text_IO; |
| |
| procedure GccTestHello is |
| begin |
| Ada.Text_IO.Put_Line("hello, centos!"); |
| end GccTestHello; |
| EOF |
| |
| |
| gnat make -o $EXE $FILE |
| |
| |
| $EXE |grep -q 'hello, centos' |
| t_CheckExitStatus $? |
| |
| |
| /bin/rm $FILE $EXE $EXE.ali $EXE.o |
| popd >/dev/null |