OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-dev/] [fsf-gcc-snapshot-1-mar-12/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [avr/] [torture/] [progmem-1.c] - Rev 783

Compare with Previous | Blame | View Log

/* { dg-do run } */
 
#include "../exit-abort.h"
#include "../progmem.h"
 
const char strA[] PROGMEM = "@A";
const char strc PROGMEM = 'c';
 
unsigned int volatile s = 2;
 
int main()
{
    char c;
 
    c = pgm_read_char (&strA[s-1]);
    if (c != 'A')
        abort();
 
    c = pgm_read_char (&PSTR ("@@B")[s]);
    if (c != 'B')
        abort();
 
    c = pgm_read_char (&strc);
    if (c != 'c')
        abort();
 
    exit (0);
 
    return 0;
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.